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Preface Read Me First 


This reference manual is for experienced Apple Ile programmers and 
hardware designers. It assumes that you have access to Apple manuals 
describing the programs, languages, and devices that you intend to use 
with your Apple Ile. 


For a beginner's view of the enhanced Apple Ile, see About Your 
Enhanced Apple Ile: User’s Guide. 


If vou’'re a beginning user, you should learn about vour Apple [le and 
some of the programs, languages, and devices that you intend to use 
before you start reading this manual. A list of some Apple manuals 
that will help you learn about the operation and function of Apple II 
family computers is given at the end of this preface. 


About This Manual 


TTT 


The Programmer's Guide that you are reading describes the differences 
between the enhanced and original Apple Ile’s. It is for programmers or 
hardware designers. 


Chapter | describes the noticable changes brought about by the 
enhanceinent. It also refers to other sources of information about 
Apple Ie operation. 


Chapter 2 describes enhanced Apple Ile interrupt handling. 


Appendix A describes the differences between the 65C02 and 6502 
microprocessors. 


Appendix B is an assembly listing of the enhanced Apple Ile Monitor 
firmware. 


About This Manual Vil 


Where to Look for More Information 





These manuals have information about the function and programming 
of Apple [] family computers and some important peripherals: 


@ Apple I Reference Manual (A2L0001A) 
@ Apple Ie Reference Manual (A2L2005) 
we Apple Ic Reference Manual (A2L4030) 
@ Apple I Super Serial Card Installation and Operating 
Manual (A2L0044) 
gw Apple [le 80-Column Tet Card Manual ( A2L2006) 
@ Apple He Eetended 80-Column Tect Card Supplement (A2L2007) 
ge ProDOS Technical Reference Manual (A2W0010) 
@ Apple Pascal 1.2 Update Manual (030-0602) 


Watch for These 





Vill 


Important: 


A Warning 


Look for these throughout the manual: 


By the Way: Text set off in this manner presents sidelights or 
interesting pieces of information. 


Text set off in this manner—and with a tag in the margin—presents 
important information. 


Warnings like this indicate potential problems or disasters. 


Preface: Read Me First 


Chapter 1 General Programming Information 


Many users of the enhanced Apple [le will notice no changes other 
than seeing Apple //Ze rather than Apple 10 at the top of the 
display screen when they turn or their computers, 

This chapter tells vou about the operating differences between the 
enhanced and original Apple Ile’s. 


The following topics are covered in this chapter: 


Physical changes in the enhanced Apple THe 
Machine identification 

6502 and 65C02 differences 

Video firmware 

MouseText 

Applesoft 80-column support 

Apple IP Pascal 

Apple Ile Monitor enhancements 
Developing cards for slot 3 


Physical Changes 
ks 


The enhanced Apple He includes the following changes: 


@ \ new version of the 6502 microprocessor found in the original 
Apple Ile. The 63C02 uses less power, has 27 new opcodes, and runs 
at the same speed as the 6502. 

m A new video ROM containing the same MouseText characters found 
in the Apple He. 

@ New Monitor ROMs (the CD and EF ROMs) containing the enhanced 
Apple Te firmware. 


Machine Identification 

a 
Apple II programs can tell which member of the Apple II family they 
are running on by checking the values of three locations in ROM. (This 
includes the Apple Tf in Emulation mode.) Table 1-1 lists the machines 
and their identification bytes. 
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Table 1-1. Apple I] Family Identification Bytes 


Machine $F BB3 $FBIE $F BCO 
Apple II $38 

Apple JI Plus SEA SAD 

Apple Ll (emulation) SEA SSA 

Apple Ie (original) $06 SEA 
Apple He (enhanced) $06 SEO 
Apple te $06 S00 


The only difference between the original and enhanced Apple Ile’s 
identification bytes is at $FBCO. That location was $EA (234 decimal) 
and is now $0 (224 decimal). 


6502 and 65C02 Differences 

a 
The enhanced Apple Ile has a new processor, the 65C02, that replaces 
the 6502 used in the original Apple Ile. The 6502 processor was also 
used in the Apple II and Apple II Plus. 


The 65C02 is also used on the Apple Ile and is an enhanced 6502. Its 
instruction set is a superset of the 6502’s with 27 new opcodes. 
Appendix A has a description of the electrical and programming 
differences between the 6502 and the 65C02 microprocessors. 


Starting Up From Drives Other Than a Disk Il 

TT TTT 
You can use startup (boot) devices other than a Disk II to start up 
ProDOS on the enhanced Apple Ile. DOS 3.3 and Apple Hf Pascal still 
require a Disk I] for startup, although Pascal 1.2 allows you to use 
other disk devices, such as a ProFile hard disk, after startup. 


When you start up your Apple, it searches for a disk drive to boot 
from, starting with slot 7 and working down toward slot 1. If the drive 
is not a Disk II, then the volume being booted must be a ProDOS 
startup disk. If it is a Disk II, then the boot volume may be any 
Apple II operating system. 


Starting Up From Drives Other Than a Disk II 


Apple II Pascal must start up from a Disk Il in slot 6. DOS 3.8 can be 
started from a Disk ID in any slot. 


Video Firmware 





The enhanced Apple Ile’s 80-column firmware has been improved, 


m The enhanced Apple Ile now supports lowercase input. 

a passes most control characters to the 
Apple's screen, 

a (CONTROL }{(D) traps most control characters before they get 
to the screen. 

a CR) was removed because uppercase characters are no longer 
required by Applesoft. 

Escape mode commands can be entered from the Apple's keyboard, or 

else a program can write command characters to the screen to perform 

the same screen functions. Table 1-2 lists the control characters that 

can be used from a program and their functions. 
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Table 1-2. Escape Mode/Control Character Equivalents 


Control 


Character 


CONTROL- 
CONTROL- 


CONTROL- 


CONTROL- 
CONTROL- 
CONTROL- 


CONTROL- 
CONTROL- 
CONTROL- 
CONTROL 
CONTROL 


CONTROL 
CONTROL 


G 
I 


J 
K 


| 4 
V 


—a 


\ 
0 
Q 


-R 
‘LU 


x 
W 


CONTROL-Y¥ 


CONTROL 
CONTROL- 


CONTROL 
CONTROL- 


} 
ch 
\ 


‘| 


A 


ASCII 
Name 


BEL 
BS 


LF 


VT 
FF 
CR 


SO 


DC] 
DC2 
NAK 


SYN 
ETB 
EM 
SUB 
FS 


GS 
RS 


Remember: 


Apple Ile 
Name 


bel] 
backspace 


line feed 


Clear EQS 
clear 
return 


norma! 
Inverse 
40)-columm 
80-column 
quit 


scroll 
scroll up 
home 
Clear line 
fwd. space 


clear EOL 
gotoXy 


Hex 
Value 


S07 
$08 


SOA 


SOB 
$0C 
SOD 


SOE 
SOF 
$1] 
$12 
$15 


$16 
$17 
$19 
SIA 
SIC 


51D 
SIE 


Function 


Sounds a 1 KHz tone for 0.1 seconds. 

Moves cursor one space to left. At left edge of 
window, moves to right edge of line above. 
Moves cursor down one line in window. Scrolls if 
necessary, 

Clears from cursor to end of window. 

Homes cursor and clears window, 

Moves cursor to left end of next line in window. 
Scrolls if necessary. 

Sets display format to normal. 

Sets display format to inverse. 

Sets 40-column display. 

Sets 80-column display. 

Deactivates 80-column card, homes cursor, and 
clears screen. 

Scrolls display down one line. cursor stays put. 
Scrolls display up one line, cursor stays put. 
Homes cursor. 

Clears line the cursor is on. 

Moves cursor one space right. At right edge of 
window, moves to left edge of next line. 

Clear line from cursor to right edge of window. 
Using next two characters minus 32, moves cursor 
to CH=X, CV=Y. 


The following new commands function only if the video firmware has 
been turned on. You can turn on the video firmware by typing PR#3 
at the keyboard, or from a program. 


Passing Control Characters to the Screen 





When 80-column text is first turned on, CONTROL } E ) Is on. 


This mode passes all ASCII characters, including screen control codes, 
to the screen. This may be a problem if you are receiving information 
from another computer via a modem and the other computer sends a 
control character that affects screen handling on your Apple Ile. 


Video Firmware 


Filtering Out Control Characters 


(CONTROL }(D) disables the printing of all ASCID control 
characters to the Apple's screen with the following exceptions: 

gw Bell (BEL). ASCID 7 

@ Backspace (BS), ASCII 8 

@ Line Feed (LF) ASCID 10 

m Carriage Return (CR). ASCH 13 

This command is most useful when vou are using a modem with vour 
Apple He to communicate with some other type of computer. Some 
control characters sent by other Computers disrupt the Apple's 
80-column firmware. 





If vou are writing a communcations program. Vou must trap control 
characters In vour program before they are sent to the Apple's screen. 


Unexpected Operation 
[eS 


While receiving information from a modem, the screen may switch 
from 80-column to 40-column mode. 

This happens when a control sequence sent by the other Computer 
happens to be what the Apple Ile uses to switch modes. You can 
sometimes avoid this by typing PR#3,. followed by 
(CONTROL }(D) before running your communications program. 


Automatic Uppercase 


The command CESCAPE) (R) has been removed from the enhanced 


Apple He's firmware because the Monitor now accepts lowercase input. 





DOS 3.3 commands still must be uppercase. 
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Enhancements 
te ee 


Both Pascal and 80-column mode Applesoft output are now about 
30% faster than before, and scrolling is smoother. 


In the original Apple II, characters echoed to COUT! during 80-column 
operation were printed in every other column; the enhanced Apple lle 
firmware now handles them properly. 


SETVID Operation 


eS 

The Monitor routine SETVID, called by many programs during 
initialization, now switches the Apple lle out of 80-column mode. This 
makes changing to another program or starting up another disk much 
smoother. You or your program must use 
before running the next application, so that when new programs begin 
operation, they can expect to find the Apple in the same memory 
configuration. 


MouseText 





MouseText is a set of graphic text characters contained in the new 
video ROM that provide an easy way to emulate windowing graphics in 
text mode. The MouseText characters and their corresponding 
alphabetic characters in the original Apple Ile are shown in Figure 1-1. 


MouseText 


~] 


Figure 1-1. MouseText Character Set 


eacnrva dt 
cu. bt 7 eES 
eX ATL PRS 
Ca 1e wr I 


To use MouseText in vour programs, first turn it on: 


1. Turn on the video firmware with PR#3. 


. Enable MouseText characters by printing an ASCII 27 (S1B) to the 
screen, 


3. Set inverse print mode by printing an ASCII 15 (SOF) to the screen. 


to 


All uppercase letters (as well as @, [. J. 7. —. and \) that vou print 
after this are displayed as MouseText characters. To stop displaying 
MouseText characters: 


1. Disable MouseText characters by printing an ASCII 24 ($18). 
2. Set normal print mode by printing an ASCII 14 (SOE). 


This BASIC program prints all the MouseText characters. 


D$=CHR$C4) 

PRINT D$;“*PR#¥3" : REM Turn on the video firmware. 

PRINT : REM This is so the screen won’t be inverse. 

PRINT CHR$C15S) 

PRINT CHR$C€27);"ABCDEFGHI JKLMNOPQGRSTUVWXYZ@l[I]*_\"; CHR$ (24); 
PRINT CHR$C( 14) 
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The 32 MouseText characters use the alternate character set’s ASCII 
codes 64 through 95 ($40-$5F). The characters that occupied this range 
in the original Ile ROMs are now remapped to ASCII codes 0-31 
($00-S1F) of the alternate character set. 


Applesoft 80-Column Support 


Ee 


The following Applesoft routines now work in 80-column mode: 


mw HTAB 

ew TAB 

ma SPC 

w Comma tabbing in PRINT statements. 


Lowercase Support 


es 


Applesoft now lets you do all your programming in lowercase. When 
you list your programs, all Applesoft keywords and variable names 
automatically are in uppercase characters; literal strings and the 
contents of DATA and REM statements are unchanged. 


Apple {| Pascal 


a 


To find out more about this, see the 
Apple Pascal 1.2 Update Manual. 


The Pascal 1.1 firmware protocol is 
described in the Apple 1! Super Serial 
Card Installation and Operating 
Manual. 


Apple II Pascal can now use a ProFile hard disk. 


Programs using the Pascal 1.1 firmware protocol can now turn the 
cursor on and off (the latter speeds up screen handling). 


Transparent mode has been removed. 


Jan) 


Apple II Pascal 


Pascal Screen Handling 
SESE SEE ee) 


If vour Pascal program uses the Pascal 1.1 firmware protocol to do 
screen handling. vou can turn the cursor off to speed screen operation 
by about 30%. Turn off the cursor by printing 
(ASCII $06). and turn it back on by printing 
See the Apple Paseal 1.2 Update (ASCII 305). This feature is supported by Apple I] Pascal versions 1.2 
Manual. and later, 


Pascal Firmware Refinements 
5 ees 


The Pascal 1.1 firmware no longer supperts the control character that 
switched from 80- to 40-column operation. because Pascal could then 
end up in conditions where the exact memory configuration might not 
be known. 


Apple Ile Monitor Enhancements 
a 8 nD EE 4) 


Enhancements to the Apple Iles built-in Monitor include the following: 


m Lowercase inpul 

m ASCII input mode 

gm Monitor Search command 
m@ The Mini Assembler 


Lowercase Input 
fe | 


The Apple {] monitor will now accept lowercase input. 
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ASCIil Input Mode 


—————————E———es 

This mode lets you enter ASCII characters as well as their 
hexadecimal ASCII equivalents. This means that ‘A is the same as Cl 
and ’B is the same as C2 to the Monitor. The ASCII value for any 
character following an apostrophe is used by the Monitor. For example, 
to enter the string “Hooray for sushi!” at $300 in memory, type 
*300:°’H "0 Oo tr ‘a "y a ‘¢ “0 ‘r ae 4s “u 
a S i h td i é a 

Note that each character to be placed in memory is delimited by a 
leading ’ and a trailing space. The only exception to this rule is that 


the last character in the line is followed by a RETURN character 
instead of a space. 


Monitor Search Command 
—>———EEEEEE SSS eee 


You can search for one or two bytes (either hexadecimal values or 
ASCII strings) in memory. For example, to look for the character string 
LO in memory between $300 and $3FF, type 


*°0°L<300.3FFs 
and to find the two-byte sequence $FF11, type 
*11FF<300.3F Fs 


You can’t search for a two-byte sequence with a high byte of 0. The 
Monitor ignores the high byte and searches for the low byte only. The 
sequence 


*9OFF<300.3F Fs 
is seen by the Monitor Search command as 
*FF <300.3FFs5 


You must type in the characters of the ASCII string (or hexadecimal 
number or numbers) in reverse of the order that they appear in 
memory. Think of the Search command as looking for items in a 
last-in, first-out queue. 
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Mini Assembler 
Se ee 


The Mini Assembler lets you enter machine-language programs directly 
from the kevboard of vour Apple. Note that it doesn't accept labels: 
vou must use actual values and addresses. 


To enter the Mini Assembler from the Monitor, tvpe ! followed by 
RETURN ). The Monitor prompt character then changes from * to !. 


When vou finish using the Mini Assembler. press (RETURN ) from a 
blank line to return to the Monitor. 


To enter code into memory, tvpe the address, a colon, and the 
instruction. For example: 


'389:STA C939 


You can enter a series of instructions by typing a space followed by 
the instruction followed by CRETURN ). 


1309:STA C938 
' LDA #AG 
! INX 


Bach succeeding instruction is placed in the next available memory 
location. As vou type in instructions, each is replaced by the starting 
address of the instruction, the hexadecimal value(s) of the instruction, 
followed by mnemonics describing the instruction. For example, the 
sequence of instructions given above would leave the following on vour 
screen: 


9386 - 8D 38 C8 STA $C93d 
9383 - AQ AB LDA #$AG 
9385 - E8 INX 


if vou make a mistake while typing the instructions. vour Apple beeps 
and reprints the last line typed in with a caret under the beginning of 
the error. 


When vou're ready to execute vour program. press CRETURN ) to leave 
the Mini Assembler and return to the Monitor. 
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Restrictions 
ge he 


The Mini Assembler does not support the new 65C02 instructions. 
Monitor commands can’t be executed directly from the Mini Assembler. 


Developing Cards for Slot 3 





$C3F4: 


See the Apple ff Super Serial Card 
[nstallation and Operating Manual or 
the Apple [ie Reference Manual for 
information about the Apple II Pascal 1.1 
firmware protocol. Information is also 
available from Apple II Technical 
Support about the Apple II Pascal 1.1 
firmware protocol. 


In the original Apple Ile firmware, the internal slot 3 firmware was 
always switched in if there was an 80-column card (either 1K or 64K) 
in the video expansion slot. This means that peripheral cards with 
their own ROM were effectively switched out of slot 8 when the 
system was turned on. 


With the revised Apple Ile Monitor ROM, the rules are different: 


w A peripheral card in slot 3 is now switched in when the system is 
started up or when is pressed if the card’s ROM has the 
following ID bytes: 


$C305 = $38 
$C307 = $18 

mw The new Apple Ile firmware requires that interrupt code be present 
in the $C3 page (either external or internal). A peripheral card in 
slot 3 must have the following code to support interrupts. 


IRQDONE STA $C081 *-Read ROM, write RAM 
JMP $FC7A ;Jump to $F8 ROM 


IRQ BIT $C01S s;slot or internal ROM 
STA $C@Q7 -force in internal ROM 


At this point, the code continues execution in the internal ROM 
at. $0400. 

mw You must support the MOVE and XFER routines at $C312 and 
$C314. 

w [Dont use unpublished entry points into the internal $Cn00 firmware, 
because there is no guarantee that they will stay the same. 

w If your peripheral card is a character 1/O device, you must follow 
the Pascal 1.1 firmware protocol. 
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Note: 


For more information about the $C300 firmware, see the Monitor ROM 
listing in Appendix B of this manual. Especially note the portion from 
$C300 through $C420. 
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Chapter 2 


Interrupts 


For more about interrupt support in 
ProDOS, see the ProDOS Technical 
Reference Manual. For Apple II 
Pascal 1.2, see the Apple Pascal 1.2 
Update Manual. 


The enhanced Apple Ile’s firmware provides improved interrupt 
support. very much like the Apple Ile’s interrupt support. Neither 
machine disables interrupts for extended periods. 


Interrupts work on enhanced Apple Ile systems with an installed 
80-column text card (either 1K or 64K) or a peripheral card with 
Interrupt handling ROM in slot 3. Interrupts are easiest to use with 
ProDOS and Pascal 1.2 because they have interrupt support built in. 
DOS 3.3 has no built-in interrupt support. 


The new interrupt handler operates like the Apple [lc interrupt 
handler, allowing for differences in the two machines. The main 
purpose of both interrupt handlers is to support interrupts in avy 
memory configuration. This is done by saving the machine's state at 
the time of the interrupt, placing the Apple in a standard memory 
configuration before calling vour program's interrupt handler, then 
restoring the original state when your program's interrupt handler is 
finished. 


What Is an Interrupt? 


OTT I I 


An interrupt is a hardware signal that tells the computer to stop what 
it is currently doing and devote its attention to a more important task. 
For example. the Apple Ile mouse can send an interrupt to the 
computer every time it moves. If vou handle that interrupt promptly, 
the mouse pointer’s movement on the screen will be smooth instead of 
jerky and uneven. 


Interrupts on Apple Il Series Computers 


a A i 


Full interrupt support on the Apple IT is a fairly recent happening. Part 
of the reason for this is that all versions of Apple's DOS 3.8, as well as 
the Monitor program, rely on the integrity of location $45, which the 
built-in interrupt handler uses to save the contents of the accumulator: 
when an interrupt occurred, the operating system would automatically 
fail. Versions of Pascal before version 1.2 also did not work with 
interrupts enabled. 
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Note: 


A Warning 


A Warning 


The built-in interrupt handler now saves the contents of the 
accumulator on the stack instead of in location $45. Thus both DOS 3.3 
and the Monitor continue to work with active interrupts. 


If you want to write programs that use interrupts while running on the 
original Apple Ile, Apple II Plus, or Apple II, you must use either 
ProDOS or Apple II Pascal 1.2. Both these operating systems give you 
full interrupt support, while the Apple II versions named above don't 
include interrupt support in their firmware. 


Interrupts are effective only if they are enabled most of the time. 
Interrupts that occur while interrupts are disabled will not be serviced 
until interrupts have been enabled again. 


Pascal, DOS 3.3, and ProDOS may turn off interrupts while performing 
disk operations because of the critical timing of disk read and write 
operations. 


An Apple Ile with the old ROMs periodically turns interrupts off while 
doing 80-column screen operations. You notice this most often while the 
screen is scrolling. The enhanced Apple Ile firmware never disables 
interrupts during screen handling. 


Some peripheral cards used in the Apple Ile disable interrupts while 
reading and writing. 


Don’t use PR#6 to restart your Apple Ile while running ProDOS 
with interrupts enabled because PR#6 doesn’t disable interrupts. 
If you try it, ProDOS will fail as it starts up because its interrupt 
handlers aren't yet set up. If you have to restart, use 


CONTROL }-( RESET), or make sure that your program disables 


interrupts before it ends. 


Some other manufacturers’ hardware, such as some co-processor 
cards, don’t work properly in an interrupting environment. If you 
are trying to develop an application and encounter this problem, 
check with the manufacturer of the card to see if a later version 
of the hardware or its software will operate properly with 
interrupts active. 


You may have to get by without interrupts if an interrupt-tolerant 
version isn’t available. 
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Rules of the Interrupt Handler 


TT 


A Warning 


For more hardware details. see 


Chapter 1, section “Developing Cards for 


Slot 3." 


Unlike the Apple IIe. the enhanced Apple He's interrupt handling 
firmware is not always switched in. Here are the reasons why this is 
so, and the implications that necessarily follow. 


There is wo part of memory in the Apple Ile that is always switched 
in. Thus, there is no location for an interrupt handler that works for 
all memory configurations. Because the $C3 page of firmware Is present 
on all svstems that have 80-column text cards in their video expansion 
Slots. It was selected as the starting location of the built-in interrupt 
handling routine. 


There are two factors that determine if the SC3 firmware is switched 
in. and therefore whether or not interrupts will be usable: 


@ Is there an 80-column text card in the video expansion slot? 


@ If not. is a peripheral card in slot 3 with built-in ROM with bytes 
$C305 = $38 and $C307 = $18? 


The Apple He's memory is switched according to the following rules at 
both powerup and reset: 


m Any ROM on any card in slot 3 replaces the internal firmware if 
there is no text card in the auxiliary slot. This is necessary. for 
Pascal to work. 

@ The internal $C3 firmware is switched in if there is a text card but 
no ROM card. 

w Slot 3 is switched in if there is a text card in the auxiliary slot and 
a ROM card in slot 3. 


This means that systems without 80-column text cards in the 
video expansion slot do not have their internal $C3 firmware 
switched in. Such systems cannot handle interrupts or breaks (the 
software equivalent of interrupts). An application program must 
swap in the $C3 firmware both on initialization and after reset to 
make interrupts function properly on such a machine 
configuration. 


ProDOS switches in the internal space unless the card in slot 3 
contains Interrupt support, 
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Another implication of the decision to have interrupt code in the 

$C3 page affects the shared $C800 space in the Apple Ile. When the 
$C3 page is referenced, the Ile hardware automatically switches in its 
own $C800 space. When the interrupt handler finishes, it restores the 
$C800 space to the original owner using MSLOT ($7F8). 


important: This means that it is very important for a peripheral card to place its 
slot address in MSLOT to support interrupts while code is being 
executed in its $C800 space. 


Interrupt Handling on the 65C02 

a a FS i Bt 8 me en ee | 
There are three possible conditions that will allow interrupts on the 
65C02: 


w The IRQ line on the 65C02 is pulled low after a CLI instruction has 
been used (interrupts are not masked). This is the standard 
technique that devices use when they need immediate attention. 

mw The 65C02 executes a break instruction (BRK = opcode $00). 

mw A non-maskable interrupt (NMI) occurs. The 65C02 services this 
interrupt. whether or not the CLI instruction has been used. An NMI 
is completely independent of the interrupts discussed in this manual. 


The 65C02 saves the current program counter and status byte on the 
stack when an interrupt occurs, and then jumps to the routine whose 
address is stored in 5FFFE and $FFFF. The sequence of operations 
performed by the 65C02 is: 


1. It finishes executing the current instruction if an IRQ is 
encountered. (If a BRK instruction is encountered, the current 
instruction is already finished.) 


. It pushes the high byte of the program counter onto the stack. 
. It pushes the low byte of the program counter onto the stack. 
. It pushes the processor status byte onto the stack. 

. It executes a JMP ($F FFE) instruction. 


1 -f Co DO 
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Interrupt handler installation is described 
in the ProDOS Technical Reference 
Manual and the Apple Hf Pascal L.2 
Ppdate Mani, 


I) 


The Interrupt Vector at $FFFE 


SSS a a ee are 

Three separate regions of memory contain address SFFFE in an 

Apple Ie with an extended 80-column text card: the built-in ROM, the 
bank-switched memory in main RAM. and the bank-switched memory 
In auxiliary RAM. The vector at SFFFE in the ROM points to the 
built-in interrupt handling routine. 


You must copy the ROMs interrupt vector to the other banks vourself 
if vou plan to use interrupts with the bank-switched memory switched 
in. Copying is done for vou by the latest version of ProDOS. Do net do 
the copy if vou have the old ROMs. 


The Built-in Interrupt Handler 


es 

The enhanced Apple Ile’s built-in interrupt handler records the 
computer's current memory configuration, then sets the computer's 
memory configuration to a standard state so that vour program's 
Interrupt handler alwavs begins running in the same memory 
configuration, 


Next the built-in interrupt handler checks to see if the interrupt: was 
caused by a break instruction, and handles it as described in section 
“Interrupt Handling on the 65C02.° If it was not a break, it passes 
control to the interrupt handling routine whose address is stored al 
S8FE and S$8FF of main memory. Normally, that would be the 
operating svstem’s Interrupt handler, unless you have installed one of 
vour own. 


After vour program’s interrupt handler returns (with an RTD). the 
built-in interrupt handler restores the memory configuration, and then 
does another RT] to return to where it was when the interrupt 
occurred, Figure 2-1 illustrates this entire process. Each of these steps 
is explained later in this chapter, 
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Figure 2-1. Interrupt Handling Sequence 


Interrupted Built-in User’s 
Program Processor Handler Handler 


Program ——» Push Address 
Push Status 
JMP (SFFFE)—*» Save old and 
set new memory 
configuration. 
If BRK then go to 
break handler ($FA47)-——————_» 


Our interrupt? 
NO: Push Address 
Push Status 
JMP ($3FE)——® Handle interrupt 


YES:Handle it 


Restore memory ¢— RTI 
configuration 


Pull Status ¢—— RTI 
Program «—— Pull Address 
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Saving the Apple lle’s Memory Configuration 
Ce ee ee eee 


The built-in interrupt handler saves the Apple Iles memory 
configuration, and then sets it to a known state according to these 
rules: 

m Text page | is switched in (PAGE2 off) so that main screen holes 
are accessible if 8OSTORE and PAGE? are on. 

Main memory is switched in for reading (RAMRD off). 

Main memory is switched in for writing (RAMWRT off). 
5D000-SFFFF ROM is switched in for reading (RDLCRAM off). 
Main stack and zero page are switched in (ALTZP off). 

The auxiliary stack pointer is preserved. and the main stack pointer 
is restored. (See section “Managing Main and Auxiliary Stacks.”) 


Note: Because main memory is switched in. all memory addresses used later 
in this chapter are in main memory unless otherwise specified. 


Managing Main and Auxiliary Stacks 
a  ——— ————————_ i _e_ 
Apple has adopted a convention that allows the Apple Ile to be run 
with two separate stack pointers because the Apple Ile with an 
extended 80-column text card has two stack pages. Two bytes in the 
auxiliary stack page are used as storage for inactive stack pointers: 
$100 for the main stack pointer when the auxiliary stack is active, and 
5101 for the auxiliary stack pointer when the main stack is active. 


When a program using interrupts switches in the auxiliary stack for 
the first time, it must place the value of the main stack pointer 

at $100 (in the auxiliary stack) and initialize the auxiliary stack 
pointer to SFF (the top of the stack), When it subsequently switches 
from one stack to the other. it must save the current stack pointer 
before loading the pointer for the other stack. 
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The current stack pointer is stored at $101, and the main stack pointer 
is retrieved from $100 when an interrupt occurs while the auxiliary 
stack is switched in. Then the main stack is switched in for use. The 
stack pointer is restored to its original value after the interrupt has 
been handled. 


A Warning The built-in XFER routine does not support this procedure. If you 
are using XFER to swap stacks, you must use code like the 
following to set up the stack pointers and stack. 


This example transfers control from a code segment running 
uSing the main stack to one running using the aux stack. 


XFERALT PHP 
PLA 
SE] 
TSX 
STA SETALT2ZP 
STX $1088 
LDX $161 
TXS 
PHA 
PLP. 


LDA *DESTL 
STA $3ED 
LDA #*DESTH 
STA $3EE 
SEC/CLC 
BIT RTS 
JMP XFER 


;preserve interrupt status in A 
;disable interrupts 

;Save main stack pointer at $190 
;and swap zero pages 

;now restore aux stack pointer 


sand interrupt status 


;set destination address 


sset direction of transfer 
;V=1 for alt zero page C(RTS=$60) 
sdo transfer 


To transfer control the other direction, change the 


following lines: 


STX $161 

LDX $188 

STA SETSTDZP 
CLV 


;V=8 for main zp 
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The User’s Interrupt Handler at $3FE 

a ere a TG 
If vour program has an interrupt handler. it must place the entry 
address of that handler at $3FE. After it sets the machine to a 
Standard state, the Apple Ile’s internal interrupt handler transfers 
control to the routine whose address is in the vector at S8FE-. 


Important: It is very important for a peripheral card to place its slot address in 
MSLOT to support interrupts whenever it is executing code in its 
5SC800 space. Whenever the $C3 page is referenced, the Apple Ile 
automatically switches in its own $C800 ROM space. When the 
interrupt handler finishes, it restores the $C800 space to the original 
owner using MSLOT (S7F8). 


A Warning Be careful to install interrupt handlers according to the rules of 
the operating system that you are using. Placing the address of 
your program’s interrupt handler at 33FE disconnects the 
Operating system’s interrupt handler. 

The S83FE interrupt handler must do these things: 


Verify that the interrupt came from the expected source. 
Handle the interrupt as desired. 

Clear the appropriate interrupt softswitch. 

Return with an RTL. 


Hoe 
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Here are some things to remember if you are dealing with programs 
that must run in an interrupt environment: 


m There is no guaranteed maximum response time for interrupts 
because the system may be doing a disk operation that could last 
for several seconds. 


m Once the built-in interrupt handler is called, it takes no less than 
about 150 to 200 microseconds for it to call your interrupt handling 
routine. After your routine returns, it takes 40 to 140 microseconds 
to restore memory and return to the interrupted program. 


m If memory is in the standard state when the interrupt occurs, the 
totai overhead for interrupt processing is about 150 microseconds 
less than if memory is in the worst state. The worst state is one 
that requires the most work to set up: 80STORE and PAGE2 on; 
auxiliary memory switched in for reading and writing; bank-switched 
memory page 2 in the auxiliary bank switched in for reading and 
writing; and internal $Cn00 ROM switched in. 


w Interrupt overhead will be greater if your interrupt handler is 
installed through an operating system’s interrupt dispatcher. The 
amount of delay depends on the operating system, and on whether 
the operating system dispatches the interrupt to other routines 
before calling yours. 


On the Ile, screen holes are “owned” by slots. The interrupt handler for 
a card in slot 4 may use the slot 4 screen holes, as long as its usage 
does not conflict with the firmware on the card. Other slots’ screen 
holes may not be touched. Slot 0 screen holes $478, 4F8, 578, 5F8, 678, 
6F8, and 778 are temporary locations that may be used by all cards. If 
an interrupt handler uses these locations, it must save and restore 
them. 
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Handling Break Instructions 

ge 
The 65C02 treats a break instruction (BRK. opcode $00) just like a 
hardware interrupt. After the interrupt handler sets the memory 
configuration, it checks to see if the interrupt was caused by a break 
(bit 4 of the status byte is set). and if it was, Jumps to a break 
handling routine. This routine saves the state of the computer af the 
time of the break as shown in Table 2-1. 


Table 2-1. BRK Handler Information 


Information Location 
Program counter (low byte) SOA 
Program counter (high byte) 83K 
Encoded mermory state S44 
Accumulator Sdn 
\ register S46 
Y register S47 
Status register S4s 


Finally the break routine jumps to the routine whose address is stored 
at $3F0 and $8F1. 


The encoded memory state in location $44 is interpreted as shown in 
Table 2-2. 


Table 2-2. Memory Configuration Information 


Bit + = | if auxiliary zero page/stack switched in 

Bit 6 = | if 80STORE and PAGE2 both on 

Bits = | if auxiliary RAM switched in for reading 

Bit 4+ = | if auxitiary RAM switched in for writing 

Bit 3 = 1 if bank-switched RAM being read 

Bit 2 = | if bank-switched SD0Q00 page 1 switched in 
Bit 1 = 1 if bank-switehed SDO00 page 2 switched in 
Bit 0 = | if internal CX ROM was switched in (Ile only) 
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Interrupt Differences: Appie lle vs. Apple llc 
TT ee 


There are several important differences between the interrupts on the 
Apple Ile and those on the Apple Ilc. They are: 


In the Apple IIc ROM, $FFFE points to $C803; in the Apple He ROM, 
to $C3FA. To ensure that the proper interrupt vectors are placed 
into the Language Card RAM space, always copy them to the RAM 
from the ROM. (When you initialize built-in devices on the Apple IIc, 
these vectors are automatically updated). 

There is no shared $C800 ROM in the Apple Ic. Peripheral cards 
share this space in the Apple Ile. Thus it is crucial that the slot 
address of the peripheral using the $C800 space is stored in 

MSLOT ($7F8). When the interrupt handler goes to the internal $C3 
space, the Apple Ile hardware switches in its own $C800 space. 
When the interrupt handler finishes, it restores the $C800 space to 
the slot whose address is in MSLOT. 

The Apple Ile $C800 space is always switched in. The enhanced 
Apple Ile’s interrupt handler preserves the state of the $C800-space 
switch and then switches in the slot I/O space. This means that 
break handling routines to restore the state of the system using the 
value placed in location $44 must restore one more value on the 
Apple [le than on the Apple IIc. 


Interrupt Differences: Apple Ile vs. Apple Ile 2¢ 


Appendix A 


The 65C02 Microprocessor 


This appendix contains a description of the differences between the 
6502 and the 65C02 microprocessors and the data sheet for the NCR 
65C02 microprocessor. 


In the data sheet tables, execution times are specified in number of 
evcles. One cycle time for the Apple He equals 0.978 microseconds 
(giving a system clock rate of about 1.02 MHz). 


Note: If you want to write programs that execute on all computers in. the 
Apple If series, use only those 63CO02 instructions that are present on 
the 6502. 


Differences Between 6502 and 65C02 


OT ee 
The data sheet lists the instructions and addressing modes of the 
6oC0Z. This section supplements that information by listing those 
instructions whose execution times or results differ in the 6302 and the 
65CO2. 


Differing Cycle Times 


—SS——EEEES eee 
A few instructions on the 65C02 operate in fewer evcles than their 
6502 equivalents. These instructions are listed in Table A-1. 


Table A-1. Cvcle Time Differences 


6502 65C0? 
Instruction / Mode Opcode Cycles Cycles 
ASL Absolute, \ lE it (j 
DEC Absolute. \ DE 1 ( 
INC Absolute, X FE 7 () 
JMP (Absolute) HC n ( 
LSR Absolute, X DE 7 fj 
ROL Absolute. \ 3K 7 (5 
ROR Absolute, \ TE if t} 


30 Appendix A: The 65C02 Microprocessor 


Different instruction Results 
——— Ea eee eee) 


It is important to note that the BIT instruction when used in 
immediate mode (opcode $89) leaves processor status register bits 7 (N) 
and 6 (V) unchanged on the 65C02. On the 6502, all modes of the BIT 
instruction have the same effect on the status register: the value of 
memory bit 7 is placed in status bit 7, and memory bit 6 is placed in 
status bit 6. 


Also note that if the JMP indirect instruction (code $6C) references an 
indirect. address location that spans a page boundary, the 65C02 fetches 
the high-order byte of the effective address from the first byte of the 
next page, while the 6502 fetches it from the first byte of the current 
page. For example, JMP ($2FF) gets ADL from location $2FF on both 
processors. But on the 65C02, ADH comes from $300; on the 6502, ADH 
comes from $200. 


Data Sheet 
ee 


The remaining pages of this appendix are copyright 1982, 
NCR Corporation, Dayton, Ohio, and are reprinted with their 
permission. 
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= GENERAL DESCRIPTION 


The NCR CMOS 6502 is an 8-bit microprocessor which is soft- 
ware compatible with the NMOS 6502. The NCR65CO2 hardware 
interfaces with all 6500 peripherals. The enhancements include 
ten additional instructions, expanded operational codes and 
two new addressing modes. This microprocessor has all of the ad- 
vantages of CMOS technology: low power consumption, increased 
noise immunity and higher reliability. The CMOS 6502 1s a low 
power high performance microprocessor with applications in the 
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s PIN CONFIGURATION 
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consumer, business, automotive and communications market. 


FEATURES 


Enhanced software performance including 27 additional OP codes 
encompassing ten new instructions and two additional! 


addressing modes. 

66 microprocessor instructions. 
15 addressing modes. 

178 operational codes. 

1MHz, 2MHz operation. 


Operates at frequencies as low 
as 200 HZ for even lower power 


consumption (pseudo-static: stop during @2 high). 
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® NCR65C02 BLOCK DIAGRAM 


@¢ Compatible with NMOS 6500 series 
microprocessors. = - 
® 64 K-byte addressable memory. ee a 
@ Interrupt capability. - ' Bs : 
® Lower power consumption. pa aa be ok! 
4mA @ 1MHz. ase as ry 
— ara 
© +5 volt power supply. ws is Bs 
: —_- cd . 
® §8-bit bidirectional data bus. sae oo = se 
¢ Bus Compatible with M6800. ad noe es blag ee 
——: ' be ———_£- 
@ Non-maskable interrupt. | 
© 40 pin dual-in-line packaging. oe 
© §8-bit parallel processing or : aan a fs : ne 
@ Decimal and binary arithmetic. = Cera we ak Mee 
= oan ~--,: 
e Pipeline architecture. _s : = i ~°: 
e Programmable stack pointer. = . - 
Peer 
® Variable length stack. _—— ene eee Seaeree 
© Optional internal pullups for bdbdbadddd ene aon 
(RDY, IRQ, $6, NMI and RES) . Rin @« “ea 
. jeanne -_ = : 7 ar 
++ @ ~~ nw 
“ +3 ¢ mae 
+s ~~ 
a o _ = 


Specifications are subject to 
change without notice. 





Copyright ©1982 by NCR Corporation, Dayton, Ohio, USA 
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NCR65C02 
»s ABSOLUTE MAXIMUM RATINGS: (Vpp = 5.0 V + 5%, Vsg = OV, Ta = Oto + 70°C) 





RATING VALUE UNIT 

SUPPLY VOLTAGE v 
INPUT VOLTAGE -0.3 to +7.0 ee 
OPERATING TEMP. 0 to + 70 °C 
STORAGE TEMP. —55 to + 150 °C 
» PIN FUNCTION 

PIN FUNCTION 
AQ-A15 Address Bus 
DO- D? Data Bus 
TRO * Interrupt Request 
RDY * Ready 
ML Memory Lock 
NMI* Non-Maskable Interrupt 
SYNC Synchronize 
RES°* Reset 
SO* Set Overflow 
NC No Connection 
R/W Read/Write j ues enue ee 
VDD Power Supply (+5V) 
VSS Internal Logic Ground ee 
Go Clock Input 
01, 2 Clock Output 


*This pin has an optional internal pullup for a No Connect condition. 


® DC CHARACTERISTICS 


Input High Voltage 
Qo (IN) Vin Vos + 2.4 
Input High Voltage 
RES, NMI, RDY, tRQ, Data, S.O. Veg + 2.0 
Input Low Voltage 
Qo (IN) VIL Vss -0.3 
Input Leakage Current 
(Vin =O to 5.25V, Vop = 5.25V) 
With pullups 
Without pullups 
Three State (Off State) Input Current 
(Vin = 0.4 to 2.4V, Voc = 5.259V) 
Output High Voltage 
SYNC, Data, A0-A15, R/W) Vou Vss + 2.4 


Out Low Voltage 
(lot = 1.6mAdc, Vopo = 4.75V 
SYNC, Data, AO-A15, R/W) 





Supply Current f = 2MHz lpp 
Capacitance C 
(Vin = 0, Ta = 25°C, f = IMHz) 
Logic Gin 
Data 


A0-A15, R/W, SYNC Cout 
Bo (IN) C@o (IN) 
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® TIMING DIAGRAM 
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0; 

02 

ADDR, R‘W 
READ DATA 
WRITE DATA 
SYNC 

ML 

ROY, TRO 
NMI, RES 
SO 
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Note: All timing is referenced from a high voltage of 2.0 volts and a low voltage of 0.8 volts. 


» NEW INSTRUCTION MNEMONICS 


MNEMONIC DESCRIPTION 
BRA Brasich relative always [Relative} 
DEA Decrement accumulator [Accum] 
INA Increment accumulator [Accum] 
PH xX Push X on stack [Implied] 
PHY Push Y on stack [Implied] 
PLX Pull X from stack [I mpiied] 
PLY Pull Y from stack [implied] 
STZ Store zero [Absolute] 
STZ Store zero [ABS, X] 
STZ Store zero [Zero page] 
STZ Store zero |ZPG.X] 
TRB Test and reset memory bits with accumulator [Atsolute] 
TRB Test ang reset memory bits with accumulator [Zero page] 
TSB Test and set memory bits with accumulator [Absolute] 
TSB Test anc set memory bits with accumulator [Zero page] 


® ADDITIONAL INSTRUCTION ADDRESSING MODES 


MNEMONIC DESCRIPTION 
ADC Add memory to accumulator with carry [({ZPG)] 
AND “AND” memory with accumulator [(ZPG)] 
BIT Test memory bits with accumulator [ABS, X] 
BIT Test memory bits with accumulator [ZPG, X] 
CMP Compare memory and accumulator [(ZPG}] 
EOR “Exclusive Or’ memory with accumulator [(ZPG}] 
JMP Jump (New addressing mode) [ABS(IND,X}] 
LDA Load accumulator with memory [{ZPG}] 
ORA “OR"™ memory with accumulator [(ZPG) ] 
SBC Subtract memory from accumulator with borrow [{ZPG)] 
STA Store accumulator in memory [{ZPG)] 
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NCR65C02 


» MICROPROCESSOR PROGRAMMING MODEL 


? 0 
[aS ACCUMULATOR A 
? 0 
[index REGISTER Y 


a ee (e) 
eee See INDEX REGISTER X 








15 ? 

[sé PECK | PCL } PROGRAM COUNTER PC 
i a 0 
| 1] S ] STACK POINTERS 





« FUNCTIONAL DESCRIPTION 


Timing Control 

The timing control unit keeps track of the instruction 
cycle being monitored. The unit ts set to zero each time 
an instruction fetch 1s executed and ts advanced at the 
beginning of each phase one clock pulse for as many 
cycles as is required to complete the instruction. Each 
data transfer which takes place between the registers de- 
pends upon decoding the contents of both the instruc- 
tion register and the timing control unit, 


Program Counter 

The 16-bit program counter provides the addresses which 
step the microprocessor through sequential instructions 
In a program, 


Each time the microprocessor fetches an instruction 
from program memory, the lower byte of the program 
counter (PCL) 1s placed on the low-order bits of the 
address bus and the higher byte of the program counter 
(PCH) is placed on the high-order 8 bits. The counter is 
incremented each time an instruction or data is fetched 
from program memory. 


Instruction Register and Decode 

Instructions fetched from memory are gated onto the 
internal data bus. These instructions are latched into the 
instruction register, then decoded, along with timing and 
interrupt signals, to generate contro! signals for the var- 
ious registers. 


Arithmetic and Logic Unit (ALU} 

All arithmetic and logic operations take place in the 
ALU including incrementing and decrementing internal 
registers (except the program counter). The ALU has no 
internal memory and 1s used only to perform logical and 
transient numerical operations, 
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PROCESSOR STATUS 
REG “'P™ 





CARRY 1-= TRUE 
ZERO 1 = RESULT ZERO 
RO DISABLE + = DISABLE 
DECIMAL MODE 1 = TRUE 
BRK COMMAND 1 = BRK 
OVERFLOW 1 = TRUE 
NEGATIVE 1 = NEG. 


Accumulator 

The accumulator is a general purpose 8-bit register that 
stores the results of most arithmetic and logic operations, 
and in addition, the accumulator usually contains one of 
the two data words used in these operations. 


Index Registers 

There are two 8-bit index registers (X and Y), which 
may be used to count program steps or to provide an 
index value to be used tn generating an effective address. 


When executing an instruction which specifies indexed 
addressing, the CPU fetches the op code and the base 
address, and modifies the address by adding the index 
register to it prior to performing the desired operation. 
Pre- or post-indexing of indirect addresses is possible (see 
addressing modes). 


Stack Pointer 

The stack pointer is an 8-bit register used to control the 
addressing of the variable-length stack on page one. The 
stack pointer is automatically incremented and decre- 
mented under control of the microprocessor to perform 
stack manipulations under direction of either the program 
or interrupts (NMI and IRQ). The stack allows simple 
implementation of nested subroutines and multiple level 
interrupts. The stack pointer should be initialized before 
any interrupts or stack operations occur. 


Processor Status Register 

The 8-bit processor status register contains seven status 
flags. Some of the flags are controlled by the program, 
others may be controlled both by the program and the 
CPU. The 6500 instruction set contains a number of 
conditional branch instructions which are designed to 
allow testing of these flags {see microprocessor program- 
ming model). 
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Delay Time, Og (IN) to 82 (OUT) 


Delay Time, 07 (OUT) to@9 (OUT) | toLy) 

Cycle Time vc. 

Clock Pulse Width Low te 
teu 


Address Setup Time 





NCR65C02 
e AC CHARACTERISTICS vop = 5.0v + 5%, Ta = 0°C to 70°C, Load = 1 TTL + 130 pF 


ees WMez [Me 
Parameter Symbol Min Max __ | Min | Max | Unit 





[| | 0 [ss 
0.50 [ 5000" | 0.33 | 5000" | HS 
220 a es ee 
220 - = ns 
ee a 
= ao [= | m0 [ns 
“a0 | me | | es 
[A  - 
= Se A RS 
ee ae 








Clock Pulse Width High 


Fall Time, Rise Time 
Address Hald Time 





Access Time 
Read Data Hold Time 
Read Data Setuy» Time 
Write Data Delay Time 





w 
w 
o 
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am | ms | > | | ot 
Y 10 |Z {jO |O 
2 lrile r 

= ih |F j= 








Write Data Hold Time 20 - 15 nS 
SO Setup Time oo, 100 100 - | 100 nS 
Processor Control | Setup Tr Time* = tecs 200 © 150 a nS 
SYNC Setup Time | tsync a 140 (2 nS 
MLSetupTime— te. , 3 = 140 [| -— [ 100 [ aS 


Input Clock Rise’ Fall Time — tego. tren . — 25 Sas ae Se nS 


*NCR65CO2 can be held static with 82 high. 
**This parameter must only be met to guarantee that the signal will be recognized at the current clock cycle. 


» MICROPROCESSOR OPERATIONAL ENHANCEMENTS 


Function NMOS 6502 Microprocessor NC R65CO02 2 Microprocessor 


i) 
wn 








Indexed addressing across page boundary. Extra read of invalid address. Extra read of last ins instruction byte. 















All are NOPs (reserved for future ucek. 
Op Code Bytes Cycles 


Execution of invalid op codes. Some terminate only by reset. Results 
are undefined, 





pe 





X2 2 2 

X3, X7, XB, XF 1 1 

44 2 3 
| 54,04, F4 2 4 
5C 3 8 
: to DC, FC 3 4 
i 


Page address increments and adds one 
additional cycle. 


Two reac’ and one write cycle. 


Paqe address does not increment. 


“Jump indirect, operand — XXFF. 















One read and two write cycles. 


Read modify write instructions at 
effective address. 


Indeterminate after reset. Initialized to binary mode (D=0} after 
reset and interrupts, 
Valid flag adds one additional cycle. 
BRK is executed, then interrupt is 
executed, 


Decimal flag. 


Invalid N. Vand 2 flags. 


Interrupt. vector is loaded, BRK vector 
“is ignored, 


Interrupt after fetch of BRK. instruc. 
tion. 














___ Function— yp. NMOS6502. 
Assertion of Ready RDY during Saas 

write operations. 1 

Unused input: tonly pins 5 (RO, N Must be connected to Jow impedance 
RDY, RES, SO). siqnal to avoid noise problems. 











a NCR65CO02 
Stops processor during 02. 





Connected internally by a high- 
resistance to Vop (approximately 250 
K ohm.) 
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NCR65C02 
s ADDRESSING MODES 


Fifteen addressing modes are available to the user of the 
NCR65CO02 microprocessor. The addressing modes are 
described in the following paragraphs: 


Implied Addressing [Implied] 

In the implied addressing mode, the address containing 
the operand is implicitly stated in the operation code of 
the instruction. 


Accumulator Addressing [Accum] 

This form of addressing is represented with a one byte 
instruction and implies an operation on the accumu- 
lator. 


Immediate Addressing [Immediate] 

With immediate addressing, the operand is contained in 
the second byte of the instruction; no further memory 
addressing is required. 


Absolute Addressing [Absolute] 

For absolute addressing, the second byte of the instruc- 
tion specifies the eight low-order bits of the effective 
address, while the third byte specifies the eight high-order 
bits. Therefore, this addressing mode allows access to the 
total 64K bytes of addressable memory. 


Zero Page Addressing [Zero Page] 

Zero page addressing allows shorter code and execution 
times by only fetching the second byte of the instruction 
and assuming a zero high address byte. The careful use 
of zero page addressing can result in significant increase 
in code efficiency. 


Absolute Indexed Addressing [ABS, X or ABS, Y] 
Absolute indexed addressing is used in conjunction with 
X or ¥ index register and is referred to as ‘Absolute, X,”’ 
and ‘‘Absolute, Y.’’ The effective address 1s formed by 
adding the contents of X or Y to the address contained 
in the second and third bytes of the instruction. This 
mode allows the index register to contain the index or 
count value and the instruction to contain the base 
address. This type of indexing allows any location refer- 
encing and the index to modify multiple fields, resulting 
in reduced coding and execution time. 


Zero Page Indexed Addressing [ZPG, X or ZPG, Y] 

Zero page absolute addressing is used in conjunction 
with the index register and is referred to as “Zero Page, 
X" or ‘‘Zero Page, Y."’ The effective address is calculated 
by adding the second byte to the contents of the index 
register. Since this is a form of ‘‘Zero Page’ addressing, 
the content of the second byte references a location in 
page zero. Additionally, due to the “Zero Page” address- 
ing nature of this mode, no carry is added to the high- 
order eight bits of memory, and crossing of page boun- 
daries does not occur. 


Relative Addressing [Relative] 
Relative addressing is used only with branch instructions; 


Data Sheet 


it establishes a destination for the conditional branch. 
The second byte of the instruction becomes the operand 
which is an “Offset’’ added to the contents of the pro- 
gram counter when the counter is set at the next in- 
struction. The range of the offset is —128 to +127 
bytes from the next instruction. 


Zero Page Indexed Indirect Addressing [(IND, X}] 

With zero page indexed indirect addressing (usually re- 
ferred to as indirect X) the second byte of the instruction 
is added to the contents of the X index register; the 
carry is discarded. The result of this addition points toa 
memory location on page zero whose contents is the low- 
order eight bits of the effective address. The next mem- 
ory location in page zero contains the high-order eight 
bits of the effective address. Both memory locations 
specifying the high- and low-order bytes of the effective 
address must be in page zero. 


* Absolute Indexed Indirect Addressing [ABS(IND, X)] 
(Jump Instruction Only) 

With absolute indexed indirect addressing the contents of 
the second and third instruction bytes are added to the 
X register. The result of this addition, points to a memory 
location containing the lower-order eight bits of the 
effective address. The next memory location contains 
the higher-order eight bits of the effective address. 


Indirect Indexed Addressing [(IND), Y] 

This form of addressing is usually referred to as Indirect, 
Y. The second byte of the instruction points to a mem. 
ory location in page zero. The contents of this memory 
location are added to the contents of the Y index regis- 
ter, the result being the low-order eight bits of the effec- 
tive address. The carry from this addition is added to the 
contents of the next page zero memory location, the 
result being the high-order eight bits of the effective 
address. 


*Zero Page Indirect Addressing [(ZPG)] 
In the zero page indirect addressing mode, the second 
byte of the instruction points to a memory location on 
page zero containing the low-order byte of the effective 
address. The next location on page zero contains the 
high-order byte of the effective address. 


Absolute Indirect Addressing {(ABS)} 

(Jump Instruction Only) 

The second byte of the instruction contains the low-order 
eight bits of a memory location. The high-order eight 
bits of that memory location is contained in the third 
byte of the instruction. The contents of the fully speci- 
fied memory location is the low-order byte of the effec- 
tive address. The next memory location contains the 
high-order byte of the effective address which is loaded 
into the 16 bit program counter. 


NOTE: * = New Address Modes 
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® SIGNAL DESCRIPTION 


Address Bus (A0-A15}) 
A0-A15 forms a 16-bit address bus for memory and 1/O 
exchanges on the data bus. The output of each address 
line is TTL compatible, capable of driving one standard 
TTL toad and 130pF . 


Clocks (G9, 04, and G2) 

Oo is a TTL level input that is used to generate the inter 
nal clocks in the 6502. Two full level output clocks are 
generated by the 6502. The @2 clock output is in phase 
with @g. The 01 output pin is 180° out of phase with oq. 
{See timing diagram.) 


Data Bus (D0-D7) 

The data lines (DO D7) constitute an 8 bit bidirectional 
data bus used for data exchanges to and from the device 
and peripherals, The outputs are three-state buffers 
capable of driving one TTL toad and 130 pF. 


Interrupt Request (IRQ} 

This TTL compatible input requests that an interrupt 
sequence begin within the microprocessor, The IRQ 1s 
sampled during @2 operation, if the interrupt flag in the 
processor status register is Z2eTO, the current istruchon 
is completed and the interrupt sequence begins during 
Qj. The program counter and processor status register 
are stored in the stack. The microprocessor wall then set 
the interrupt mask flag high so that no further !RQs 
may occur. At the end of this cycle, the program counter 
jow will be loaded from address FFFE, and program 
counter high from jocation FFFF, transferr-ng program 
control to the memory vector located at these addresses, 
The RDY signal must be tn the high state for any inter 
rupt to be recognized A SK ohm external resistor should 
be used for proper wire OR operation, 





Memory Lock (ML) oo, 

In a multiprocessor system, the ML output indicates the 
need to defer the rearbitration of the next bus cycle to 
ensure the integrity of read-modify-write instructions. 
ML goes low during ASL, DEC, INC, LSR, ROL, ROR, 
TRB, TSB memory referencing instructions. This signal 
is low for the modify and write cycles. 


Non-Maskable Interrupt (NMI) 

A negative going edge on this input requests that a non 
maskahle interrupt sequence be generated within the 
microprocessor, The NMI 1s sampled during Q2, the cur: 
rent instruction 1s completed und the interrupt sequence 
begins during @4. The program counter is loaded with 
the interrupt vector from locations FFFA (low byte} 
and FFFB (high byte), thereby transferting program con. 
trol to the non-maskable interrupt routine. 


Note: Since this interrupt is non-maskable, another NMI 
can occur before the first is finished. Care should be taken 
when using NMI to avoid this. 


NCR65C02 


Ready (RDY) 

This input allows the user to single-cycle the micropro- 
cessor on all cycles including write cycles. A negative 
transition to the low state, during or coincident with 
phase one (01), will halt the microprocessor with the out- 
put address lines reflecting the current address being 
fetched. This condition wil! remain through a subsequent 
phase two (@2} in which the ready signal 1s low. This fea- 
ture allows microprocessor interfacing with low-speed 
memory as well as direct memory access (DMA). 


Reset (RES) 

This input is used to reset the microprocessor. Reset 
must be held low for at least two clock cycles after 
VOD reaches operating voltage from a power down. A 
positive transistion on this pin will then cause an in:tiali- 
7ation sequence to begin. Likewise, after the system has 
been operating, a low or this fine of at least two cycles 
will cease microprocessing activity, followed by initial: 
ization after the positive edge on RES. 


When a positive edge ts detected, there 1s an initialization 
sequence lasting six clock cycles. Then the interrupt 
mask flag is set, the decima!t mode ts cleared, and the pro- 
gram counter is loaded with the restart vector from loca: 
tions FFFC (low byte) and FFFD (high byte). This ts 
the start location tor program control. This input should 
be high in normal operation. 


Read/Write (RW) 

This signal is normally in the high state indicating that 
the microprocessor +s reading data from memory or |/O 
bus. In the low state the data bus has valid data from the 
microprocessor to be stared at the addressed memory 
location. 


Set Overflow (SO) 

A negative transition on this line sets the overflow bit in 
the status code reqister. The signal is sampled on the trail- 
ing edge of 0}. 


Synchronize (SYNC) 

This output line 1s provided to identify those cycles dur- 
ing which the microprocessor is doing an OP CODE 
tetch. The SYNC line goes high during 0; of an OP CODE 
fetch and stays high for the remainder of that cycle. If 
the RDY line is pulled low during the @] clock pulse in 
which SYNC went high, the processor will stop in its 
current state and will remain in the state until the RDY 
line goes high. In this manner, the SYNC signa! can be 
used to contro! RDY to cause single instruction execu- 
tion, 


Appendix A: The 65C02 Microprocessor 





NCR65C02 
» INSTRUCTION SET — ALPHABETICAL SEQUENCE 


ADC 
AND 
ASL 
BCC 
BCS 
BEQ 
BIT 
BMI 
BNE 
BPL 
“BRA 
BRK 
BYVC 
BVS 
CLC 
CLD 
Clu 
CLV 
CMP 
CPX 
CcPY 
"DEA 
DEC 
OE x 
DEY 
EOAR 
"INA 
INC 
INX 
INY 
JMP 
JSR 
LDA 


Note: ° = 


Add Memory to Accumulator with Carry 
“AND Memory with Accumulator 
Shift One Bit Lett 

Branch on Carry Clear 

Branch on Carry Set 

Branch on Result Zero 

Test Memory Bits with Accumulator 
Branch on Result Minus 

Branch on Result not Zero 

Branch on Result Plus 

Branch Always 

Force Break 

Branch on Overflow Clear 

Branch on Overflow Set 

Clear Carry Flag 

Clear Decimal Mode 

Clear Interrupt Disable Bit 

Clear Overflow Flag 

Compare Memory and Accumulator 
Compare Memory and Index X 
Compare Memory and Index Y 
Decrement Accumulator 

Oecrement by Qne 

Decrement Index X by One 
Decrement Index Y by One 
“Exclusive- or’ Memory with Accumulator 
increment Accumulator 

Increment by One 

Increment Index X by One 
Increment Index ¥ by One 

Jump to New Location 

Jump to New Location Saving Return Address 
Load Accumulator with Memory 


New Instruction 


» MICROPROCESSOR OP CODE TABLE 





as 
el 


QO 
“a 


vv 
< 





Note: * = 


io 
ind, X 
BPL ORA |ORA‘T 
rel ind, Y | (zpq) 
JSA anh ps 
abs 
BMI AND’t 
rel ie ‘ (zpq) 
fee | 
BYC EOR 
rel ind, ¥ 
ATS ADC 
ind, X 


BRA* STA 
rel ind, X 
site 
— ie 


. 
va . 
Cc 
pag! 
CM 
nd, 
sBc 
ind, ¥ 


New OP Codes 


LDX 
LDY 
LSR 
NOP 
ORA 
PHA 
PHP 

*PHX 

* PHY 
PLA 
PLP 

*PLX 

“PLY 
ROL 
ROR 
RTI 
RTS 
SBC 
SEC 
SED 
SEI 
STA 
STX 
STY 

*STZ 
TAX 
TAY 

“TAB 

“TSB 
TSX 
TXA 
TXS 
TYA 


Load Index X with Memory 

Load Index Y with Memory 

Shift One Bit Right 

No Operation 

“OR’’ Memory with Accumulator 
Push Accumulator on Stack 

Push Processor Status on Stack 
Push Index X on Stack 

Push Index Y on Stack 

Pull Accumulator from Stack 

Pull Processor Status from Stack 
Pull Index X fram Stack 

Pult Index Y from Stack 

Rotate One Bit Left 

Rotate One Bit Right 

Return from interrupt 

Return from Subroutine 

Subtract Memory from Accumulator with Bortow 
Set Carry Flag 

Set Decimal Mode 

Set Interrupt Disable Bit 

Store Accumulator in Memory 
Store Index X in Memory 

Store Index ¥ in Memory 

Store Zero in Memory 

Transfer Accumutator to Index X 
Transfer Accumulator to Index ¥ 
Test and Reset Memory Bits with Accumulator 
Test and Set Memory Bits with Accumulator 
Transfer Stack Pointer to Index X 
Transfer Index X to Accumulator 
Transfer Index X to Stack Pointer 
Transter Index ¥ to Accumulator 








5 


o 
Pe] 
> 


a aha 
2pg, X 


































ADC Aoc't 
ind, ¥ {zpg) 





LDX 
?pg, Y¥ 








CMP*t DEC CLD EC 
1 (zpg} zp9, X | zpg, xX no Y ae x eh x 
SBC rhe ne oi sec INC 
ind, X ae abs abs 
sac't ne SBC mri spc INC 
izpg} = = zpg, X ea Y abs, X abs, X 
Paak Ss 5 a a 








CLV 


zpg 
CPY DEC DEX CPY 
zpg imm abs 





Note: t = New Address Modes 


Data Sheet 


EOR 





abs, Y 


















PHY® | 








ROR 
A I 
PLY* 


JMP 

labs) 
JMP*t 

abs lind, X} 





























TSX LDY 


abs, X 


LDA | 
abs, X 
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NCR65C02 
e OPERATIONAL CODES, EXECUTION TIME, AND MEMORY 


REQUIREMENTS 
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(V & Niin the Processor Status Code Register unchanged. 
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Appendix B 


Apple Ile Monitor ROM Listing 


OO: 


O000;: 
OOOO: 
O000: 
OoO00: 


a 


oe Pee?) 


S 


O000: 
aQoon: 
oon0; 
agnn: 
OOON: 
Onon;: 
OOon0; 
OOOO: 
OoO0: 
ONO0: 
O00: 
OO0N: 
QOO0 : 
Oooo: 
0000: 
OOOO: 
OO00: 
OOOO: 
OO000: 


OOD: 


* 


NOd00: 
aod: 
QOOU: 
OOOO: 
OOON: 
OQOO0: 
Oooo: 
NOOO: 
OOOO: 
OOO: 
OOOO: 
OOOU: 
QOUO: 
QOUU: 
NOOO: 
OOOO: 
OOOO: 
OO00: 


QO00 


=e 


OO00: 
OO000: 
OOOO: 
ON00: 
Oud: 


2 


o0000 


0004 
On00 


F800 
C100 
e300 
C800 


O00 


cood 
CO0O 
cool 
CNA? 
C003 
CNOS 
cCOUS 
COO6 
Coa? 
COOB 
CON9 
COUA 
COOB 
COOC 
cOOD 
COOK 
COOF 
COLO 
coll 
COl2 


N 


TEAST FQU OO :REAL VERSTON 

2 LST ON :DO LISTING AND SYMBOL TABLES 
3 MSB ON >SET THEM HIBITS 

4 TROTEST EQU 1 

5 dO Tee: 

6 F8ORG FOU $1800 

7 C1ORG EQU $2100 

8 C3ORG EQU $2300 

9 CBORG FOU $2800 
10 ELSE 

Ll F8ORG KOU SF8O0 

12 CLORG EOU $E100 

13 C3ORG ROU = $C300 

14 C8ORG FOU Sscaoo 

15 FIN 

16 MSB ON 

17 INCLUDE EQUATES 

| I III IO III RTO a I dea 

2 

3 * Apple //e Video Firmware 

4 

5 * RICK AURICCHIO 08/81 

6 * F. BEERNINK, RR. WELLIAMS 1984 

7 x 

8 * (C) 1981,1984 APPLE COMPUTER INC. 

9 x ALL RIGHTS RESERVED 

10 * 

) RII IO IOI I II I IOI I IO I 

12 * 

13 GOODFB EQU 6 ;F8 ROM VERSTON 

14 * 

15 *® HARNWARE HOUATES: 

l6 * 

17 KBD Eat! scoaoo ;Read keyboard 

18 CLRBOCOL FO SCcooo >Disahle 80 column store 

19 SET8OQCOL Eat! scool :Enable 80 column store 
20° RDMATNRAM EQU SCOO2 ;Read from main RAM 
27 RDCARDRAM FOU SCOO3 ;sRead from auxiliary RAM 
22 WRMAINRAM EOU SCQ04 ;Write to main RAM 

234 WRCARDRAM ENU SCO0S ‘Write to auxiliary RAM 
24 SETSLOTCXROM EQU SCODH sSwiteh in slot CX00O ROM 

25 SETINTCXROM EOQU S$COO7  sSwitch in internal CX0N0 ROM 
26 SETSTDZP FOT SCOO8 >Switch in main stack/zp/lang.card 
27 OSETALYIZP. 4G"? SCO :Switch in aux stack/zp/lang.card 
28% SETINTC3ROM FOU SCOOA Switch in internal $C3 ROM 
29 SETSLOTC3ROM ROU SCOOB iSwitch in slot $SC3 space 
30 CLRBOVID FQJ $Scooc ‘Disable 80 column video 

3] SETBOVID FOU SCOOD sEnable 80 column video 
32 CLRALTCHAP EQU SCOOFR sNormal Apple II char set 
33 SETALTCHAR EOU SCOOF :Norm/inv LC, no flash 
34 KBDSTRB KOU S$CO10 ;Clear keyboard strobe 

35 RDLCBNK? EOU SCO1I >>127 if LC BANK2 in use 

36 RDLCRAM EQU Scol2 ;>127 if LC is read enahled 


Appendix Bs Apple Te Monitor ROM Listing 


0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
Oo000: 
0000: 
0000: 
0000: 
O000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
Oo00: 
0000: 
0000: 
0000: 
0000: 
0000: 
O000: 
0000: 
0020: 
0020: 
0021: 
0022: 
0023: 
0024: 
0025: 
0026: 
0028: 
OO2ZA: 
OO2A: 
002C: 
O02C: 
O02 F: 
O02F: 
0030: 
0032: 
0033: 
0034; 
0035: 


C013 
CO14 
cols 
C016 
col? 
C018 
cO19 
COLA 
CO1C 
COLE 
CO1LF 
C030 
C054 
C055 
COSD 
COSF 
C061 
C062 
C081 
C083 
CO8B 


FBB3 
FDIB 
FDFO 
FF69 


0000 
0001 


0020 
0001 
0001 
OO01 
0001 
0001 
0001 
0002 
0002 
0029 
0002 
OO2B 


OO2F 
0001 
0002 
0001 
0001 
0001 
0001 


RDRAMRD EQU 
RDRAMWRT EQU 
RDCXROM EQU 


RDALTZP 


EQU 


RDC3ROM EQU 


RD80COL 


EQU 


RDVBLBAR EQU 


RDTEXT 
RDPAGE2 


ALTCHARSET EQU SCOI1E 


EQU 
KOU 


$C013 
$CO014 
SCOL5 
$CO16 
$col? 
$C018 
SCOL9 
SCOLA 
$cOl1c 


RD8OVID EQU SCOIF 


SPKR 


EQU 


$C€030 


TXTPAGEL EQU $CO54 
TXTPAGE2 EQU $CO55 


CLRAN2 
CLRAN3 
BUTNO 
BUTNI 
ROMIN 
LCBANK2 


LCBANK1 
x 


EQU 
EQU 
EQU 
EQU 
EQU 
EOQU 
EQU 


$c05D 
SCO5F 
$c061 
$€062 
$c081 
$C083 
SCOBB 


* MONITOR EQUATES: 


* 


32127 if main RAM read enabled 
3>127 if main RAM write enabled 
;>127 if ROM CX space enabled 
3>127 if alt. zp & le enabled 
3>127 if slot C3 space enabled 
;>127 if 80 column store enabled 
:>127 if not vertical blanking 
;>127 if text mode 

3>127 if page 2 

;>127 if alt char set switched in 
3>127 if 80 column video enabled 
;toggle speaker 

iswitches in text page 1 
;switches in text page 2 
tannunciator 2 

sannunciator 3 

sopen-apple key 

;closed-apple key 

:swap in DOOO-FFFF ROM 

;swap in LC bank 2 

;swap in LC bank 1 


F8VERSION FOU F80RG+S$3B3 ;F8 ROM ID 
F8ORG+S5S1B ;normal input 


KEYIN 
cour | 
MONZ 
x 


* ZEROPAGE EQUATES: 


* 


LOCO 
LOCI 


WNDLFT 
WNDWDTH 
WNDTOP 
WNDBTM 
CH 

CV 


BASL 
BASH 
BAS2L 


BAS2H 
x 


LENGTH 


INVFLG 
PROMPT 
YSAV 
SAVY 1 


EQU 
EQU 


F8ORG+S5 FO 


;normal output 


EQU F8ORG+S769 s;monitor entry point 


EQU 
F.QU 
DSECT 
ORG 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
EQU 
DS 
EQU 


ORG 
DS 
DS 
DS 
DS 
DS 
DS 


0 
l 


$20 
| 
l 
l 
l 
1 
1 
2 
2 


BASL+1 


2 


BAS2 L+1 


S2F 
l 
2 
l 
l 
l 
l 


sused for doing PR# 
sused for doing PR?# 


:scrolling window left 
sscrolling window width 
sscrolling window top 
sscrolling window bottomtl 
scursor horizontal 

;cursor vertical 

;GBASL,GBASH 

;points to current line of text 


;pointer used for scroll 


;lengthb for mnemonics 


3>127=normal, <127=inverse 
sused by monitor upshift 
;input buffer index for mini 
:for restoring Y 
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0036: 
0038: 
0038: 
OO3A: 
O03C: 
O03C: 
OO3E: 
OO3F: 
0040: 
0040: 
0042: 
0044: 
N044: 
OO4E: 
OO4E: 
0050: 
0000: 
0000: 
OOOO: 
oon0: 
OO000: 
0000: 
0000: 
OvU00: 
0000: 
0000: 
0000: 
OOOO: 
ooon: 
0000: 
0000: 
0000: 
Q000: 
0000: 
0000: 
0000: 
0000: 
0000: 
OO000: 
NO00: 
0000: 
Onno: 
O000: 
OO0N00: 
0000: 
0000; 
0000: 
0000: 
0000: 
O000: 
ONOO: 
0000: 
O000: 
0000: 


1 


0002 
0037 
0002 
0039 
003C 
0002 
003D 
0002 
OO3F 
0002 
0002 
0043 
0001 
OO4E 
N002 
OO4F 


0200 


O7 F8 


O47B 
O4FB 
O57B 
OSFB 
O67B 
O6FB 
O77B 
O77B 
O7 FB 
O7 FB 


91 
92 


94 
95 


97 
98 


100 
101 
102 
103 
104 
INS 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
[1? 
118 
119 
120 
121 
22 
123 
124 
125 
126 
127 
128 
129 
130 
Lt 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 


CSWL DS 2 


shook for output routine 


CSWH EQU CSWL+]1 


KSWL DS 2 


shook for input routine 


KSWH EQU KSWL+1 


ORG $3C 
AIL DS wd ;Monitor temps for MOVE 
AlH EQU AIL+1 
A2L DS 2 
A2H EQU A2L+1 
DS 2 ;A3 NOT USED 
ASL DS 2 
A4H EOU A4L+1 


MACSTAT DS ] 


RNDL DS 2 


‘machine state on hreaks 
ORG S4E 
;random numher seed 


RNDH EQU) RNDL+1 


* 


DEND 


BUF EQU $200 sinput buffer 


» 


+ &* + & 4 * BH HH HH HF HR HH FH 


MSLOT EQU $/7F8 


* 


Permanent data in screenholes 


Note: these screenholes are only used by 

the 80 column firmware if an 80 column card 

is detected or if the user explicitly activates 
the firmware. If the 80 column card is not 
present, only MODE is trashed on RESET. 


The success of these routines rely on the 

fact that if 80 column store is on (as it 
normally is during 80 column operation), that 
text page 1 is switched in. Do not call the 
video firmware if video page 2 is switched in!! 


3=$Cn ;n=slot using $C800 


OLDCH EOU $478+3 :LAST CH used by video firmware 
MODE EQU S$4F8+3 ;video firmware operating mode 
OURCH EQU $578+3 *80 column CH 

OURCYV EOU S5SF8+3 780 column CV 

CHAR EFQU $678+3 ;character to be printed/read 
XCOORD EQU S6F84+3 ;GOTOXY X-coord (pascal only) 
TEMP} KOU $778+3 :temp 

OLDBASL EQU $778+3 ;last BASL (pascal onlv) 

TEMP2 KOU S7F8&+3 ; temp 

OLDBASH EQU $7F8+3 slast BASH (pascal onlv) 

x 

* BASIC MODE BITS 

* 

* Oeeeesee — BASIC active 

® lesecses = Pascal active 

© 0s oe eas 

ele ewan 

® eeOeeeee — Print control characters 

* 


ia liewews a Don't print etr] charSe 
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— ee ee ee oe 


0040 
0020 
0010 
0008 
0004 
0002 
0001 


0080 
0010 
0008 
0004 
0002 


FA47 
FC74 
FC7A 
F8B7 


NEXT OBJECT 
C100 
C100 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
Liz 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
18 
FILE 


® necsQVeces 
KF secleces 
KB wee eQeone 
© weasel eas 
Bocce ele. 
K wecceles 
© Savane Os 
BS ewe Le 
Be ccece el 
B weccseel 
* 

M.6 FQU 
MeCTL2 FQU 
M.4 EQU 
M.CTL EQU 
M.2 EQU 
M.1 EQU 


M.MOUSE EQU 
* 


Oe Kein & ee 


1 iowa wad 


elecccne 
o Decoce 
colscecs 
oe eQeeee 
covleoee 
eeeeQeee 
eovclese 
ceneeDes 
ceocseles 
eve eeDe 
evoneels 
eevee e el 


ary alevee?e 


+ + + + + FH *F HF FF HF FH HF FH HF HF HF 


M.-PASCAL EQ 
M.CURSOR EQ 
MeGOXY EQU 
M.VMODE EOQU 


M.-PAS1.0 EQ 
* 


Print 


- Don't 


pO eceeaw 


~ 
_ 
_ 


U 
U 


U 


Mouse 
Mouse 


$40 
$20 
$10 
$08 
$04 
$02 
$01 


Pascal Mode Bits 


BASIC 
Pascal 


Cursor 
Cursor 
GOTOXY 
GOTOXY 
Normal 


control characters 
print next ctrl char 


text inactive 
text active 


;Don't print controls 


;Temp ctrl disable 


active 
active 


always on 
always off 
n/a 

in progress 
Video 


Inverse Video 
PASCAL 1.1 F/W ACTIVE 


PASCAL 
Mouse 
Mouse 


$80 
$10 
$08 
$04 
$02 


* F8 ROM entries 


* 


1.0 INTERFACE 
text inactive 
text active 


s;Pascal active 
;Don't print cursor 
;GOTOXY IN PROGRESS 
-PASCAL VIDEO MODE 
;PASCAL 1.0 MODE 


NEWBREAK EQU F80RG+$247 
IRQUSER EQU F8ORG+$474 
IRQDONE2 EQU F8ORG+S47A 
TSTROM EQU F8ORG+S$B7 
INCLUDE BFUNC 
NAME IS REFLIST.O 
ORG C1ORG 


BFUNCPG EQU 


* 
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C1O0; RECS 3 FUNCEXIT FQU FRORG+S6C5 ;RETURN ADDRESS 


c1loo: FCFO 4 MINI EQU  F8YORG+S4F0 

C100: 5 * 

Clo0: fh * BASEC FUNCTION HOOK: 

C100: 7 * 

Claus 8 * SCION is called by the patched $F8 ROM. 

cloo: 9 * It provides an extension ro SF8 routines 

c1oa: 10 * chat do not work in &0 columns. 

c1loao; li * 

CLs 12. * Before jumping here, the $F8 rom disabled 

Clos 13 * slot 1/0 and enabled ROM I/O. This makes 

ClLOO: 14 * the entire space from SC1LO0 = SCFFF with the 
Cloa: 15 * exception of the S$C300 page available. 

cClo0: 16 * 

C)O0: 17 * On exit slot 1/0 is restored if necessarv. 
C1lOO: Gs ies 

Choo: 19 * INPUT: Y=FUNCTION AS FOLLOWS: 

C1lo0: WY * 

ChOO: galt oe 1 = KEYIN 

Chis 22 * 2 = Fix escape char 

C1OA0: 24% 3°= BASCALC 

CLM: 24 * 4 = VTAB or VTARZ 

C100: as 5 = HOME 

C100: 26 * 6 = SCROLL 

clog: 27 * i 2 -CLREOW 

cLoo: 24 * 8 = CLREOLZ 

C100; 29 * 9 = RESET 

CLUO: 300 * A = CLREOP 

LOO JL * KR = RDKEY 

CLOO: o2; % C = SETWND 

GLOOS 33 * D = Mini Assembler 

c1loO0: 34 * E = set 40 columns on PREO/ LNHO 

ClOoO: 35 * FF = Fix pick tor monitor 

C1oo: 36 * 

clon: 37 * Stack has PHP for status of internal SCNOO ROM 
CLOW: 38 * 

CLOO: 39 * Note: Tf 80 Vid is on and the MODF hyte is valid, 
clan: 40 * this call will be dispatched to an 80 column routine 
CLOO: 41 * hv B.FUNCO. Otherwise it will he dispatched to a 
C100: 42 * 40 column routine by B.OLDFUNC. In all cases return 
C100: 43 * to the Autostart POM is done through F.RETURN. 
C100: 44 * 

clnd:4c 13 C2 45 B.FUNC JMP DISPATCH ;figure out what to do 
C103: 46 * 

C103:A4 24 47 F.CLREOP LDY CH ; ESC F IS CLR TO END OF PAGE 
GIOS A525 48 LDA CV 

C107 :48 49 CLEOPL PHA 

C108:20 03 CE 50 JSR VTABZ 

CLOB:20 F4 €) 51 JSR X.CLREOLZ 

CLOE:A0 00 a2 LDY #S00 

C110:68 53 PLA 

C111:69 OO 54 ADC #S00 (carry set) 

CLIsses: 23 55 CMP WNDBTM 

C115:90 FO CLO? 56 BCC CLEOP] 
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Elivs 
C119: 
:A5 
CLIB: 
CilD: 
184 
2 FO 
C123: 

>A5 
248 
720 
C129: 
C12B: 
Ci2D: 
Cl2F: 


C119 


CliF 
C121 


C123 
C125 
C126 


C131 
C133 
C134 
C135 
C1lyV7 


C13c 


C141 


C143 


C148 


CI4A: 
CL4D: 
C14F: 
C1322 
C152: 
:A9 
:85 
:A9 
C158: 
CISA: 
cih5c: 
CI5E: 
C160: 
C160: 
C160: 
AG 
:4C 
C165: 

C165: 

C165: 

:4C 
C168: 

C168: 

C168: 

:4C 


C152 
C154 
C156 


C160 
C162 


C165 


C168 


BO 


AO 


AS 
85 
AS 
85 


>A4 
:88 
:68 
:69 
:C5 
C139: 
C13B: 
220 
CI3F: 
191 
:88 
C144: 
C146: 
: AO 


BO 
48 


Bl 


10 


20 
AS 
4C 


85 
A9 
85 
DO 


34 


22 
25 
0 
24 
E4 


22 


03 CE 
28 
2A 
29 
2B 
21 


Ol 


OD 


03 CE 
28 
2A 


F9 
El 
n0 
F4 Cl 
25 
03 CE 


28 
21 
18 
23 
17 
25 
EF 


2A 
F4 Cl 


EB CB 


9A CC 


C14) 


C107 


C148 


C13F 
C129 


C152 


C14F 


BCS GVTZ ;=Palways to VTABZ 
x 
F.HOME LDA WNDTOP 

STA CV 

LDY #S00 

STY CH 


BEQ CLEOP! ;(ALWAYS TAKEN) 


k 
F.SCROLL LDA WNDTOP 
PHA 
JSR VTABZ 
SCRL1 LDA BASL 
STA BAS2L 
LDA BASH 
STA BAS2H 
LDY WNDWDTH 
DEY 
PLA 
ADC #S01 
CMP WNDBTM 
BCS SCRL3 
PHA 
JSR VTABZ 
SCRI.2 LDA (BASL),Y 
STA (BAS2L),Y 


DEY 
BPL SCRL2 
BMI SCRLI 


SCRL3 LOY #$00 
JSR X-CLREOLZ 
GVTZ LDA CV 
GVTZ2 JMP VTABZ 
k 
F.e.SETWND EOU * 
LMA #40 
STA WNDWDTH 
LDA #24 
STA WNDBTM 
LDA #23 
STA CV 
BNE GVTZ2 


sset vertical base 


3=>go do vtab, exit 
x 


* Load Y from BAS2L and clear line 
* 


F.CLREOLZ LDY BAS2L ;set up by SF8 ROM 
JMP X.CLREOLZ ;and clear line 


80 column routines begin here 


* 
* 
* 
B.SCROLL JMP SCROLLUP ;DO IT FOR CALLER 
* 
* Clear to end of Line using Y = OURCH 

* 

B 


»CLREOL .JMP X.GS :clear to end of line 


Appendix By Apple He Monitor ROM Listing 


27 


C1l6B: 
C16B: 
CLO6B: 
C16B: 
C1LO6OB: 
Cl6D: 
C170: 
:4C 
Cl73s 


C170 


C176 


C182 


C184 


CLac 
C1LBE 


C190: 


C192 


CLAO 
C1A2 
CLA4 


CLA: 
CLlAI: 
CLAY: 
CLARB: 
7438 
:29 


CLAD 
CLAF 


C1BO: 
291 
:68 
CLLRS: 
CLR6: 
C1B6: 
2 AS 


C1 B2 
C1 B4 


CYB? 


C1B9: 
CIBC: 
CIBE: 


Ad 
AC 


4C 


:4C 
C179: 
CL7C: 
CLIC? 
C17F: 
285 
:8N 
C1B7: 
CI8A: 
CLBA: 
CIBA: 
CLIBA: 
C18A: 
CIBA: 
C18A: 
> FO 
C0 


4C 
20 
AD 


4C 


B4 


FO 


220 
C195: 
Cl9?7: 
C199: 
CLOB: 
C19D: 
CI9F: 
CLAN: 
A 
709 
:no 


B4 
Fo 


95 


B5 


60 


4C. 


Bl 


09 


AQ 


20) 
91) 


2A 
9D 


74 
AO 
BO 
F2 


90 
7B 
24 
7B 
FE 


00 
OF 
1B 
OF 
8u 
OO 
O4 
FD 
Ol 
01 


37 
C3 
F3 
32 


3F 
40 
28 


28 
BA 
4C 


CC 
CG 
C2 
C2 
C2 


cc 
05 


oa) 


cp 


C8 


CA 


C18A 


C19D 


C1LAO 


C19b 


C199 


C20A 


11] 
112 
Li3 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
12? 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14] 
142 
143 
144 
145 
146 
147 
148 
149 
150 
15] 
152 
153 
154 
155 
156 
a7 
158 
159 
160 
16] 
162 
163 
164 


* 


* Clear to end of line using Y = BAS2L 
* which was set up by the $F8 ROM 


* 


B.CLREOLZ LDY BAS2L 


* 


B.e-CLREOP JMP 
BeSETWND JMP 


B.RESET 
Be RDKEY 
* 


B.HOMF 


* 


JIM. 


Pal 
JMP 


JSR 
LDA 
STA 
STA 
JMP 


X .-GSEQLZ 


X.VT 
B.SETWNDX 
B.eRESETX 
B.RDKEYX 


X.FF 
OURCH 
CH 
OLDCH 
VTAB 


‘get Y 
sclear to end of line 


,CLEAR TO FOS 


;MUST BF IN BFUNC PAGE 


sHOME & CLEAR 


sCOPY CH/CV FOR CALLER 
;REMEMBER WHAT WE SET 
‘calc base & return 


* Complete PR# or INf call. Quit video firmware 
* if PR#N and it was active (B.QUIT). Complete call 


* if inactive (F.QUIT). 


* 
BeOULT 


F.OQUILT 


FSHOOK 


NOTO 


* 
ISO 


* 
F.RDKEY 


F.NOCUR 


* 


EOU 
LDY 
BEQ 
GPY 
BEO 
JSR 
LDY 
BEQ 
LDA 
STA 
LDA 
RTS 


LDA 
CMF 
BNE 
astP 


LDY 
LDA 
PHA 
AND 
ORA 
STA 
PLA 
RTS 


* 
LOCO, X 
NOTO 
#KEY IN 
1S0 
QUIT 
LOCO ,X 
NOTO 
#CKEYIN 
LOC1 ,X 
LOC], X 


CSWH 
&<BASICIN 
F8HOOK 
C3IN 


CH 
(BASL),Y 


HS3F 
#340 
(BASL),Y 


F.BASCALC TAY 


LDA 
SR 
BCC 


BASL 
BASCALC 
F.RETURN 


swas it PR#O/ INFO? 

2=>no, not slot O 

swas it IN#O? 

;=>yes, update high byte 

squit the firmware 

szet low byte into Y 

snot slot 0, firmware inactive 
iset high byte to SFD 


srestore accumulator 


s¢5 SC3 in output hook? 


2=>no, set to SFDOC 
:else set to $C305, exit A=SC3 


selse do normal 40 cursor 
szrab the character 


$set screen to flash 
sand displav it 
treturn (A=char) 
srestore Y 

srestore A 


scalculate base address 
*BASCALC always returns BCC! 
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C1BE: 
CLBE:20 
C1C1:A0 
CiC3: 
C1C3:D9 
C1C6:D0 
C1C8:B9 
C1CB: 
C1CB:88 
c1cc:10 
C1CE:30 
C1D0: 
C1D0:20 
C1D3:4C 
C1D6: 
C1 D6: 
C1D6: 
C1D6:8A 
C1D7:29 
C1D9:85 
C1DB: A5 
C1DD:29 
C1DF:4C 
C1lE2: 
ClEZ 220 
C1lES:8A 
C1E6:85 
C1E8 :60 
C1LE9: 
C1lE9: 
C1LE9: 
CLE9:AC 
CLEC :20 
ClEF:09 
C1F1:60 
ClF2: 
C1F2: 
C1F2: 
C1F2: 
C1F2:A4 
CLF4:A9 
C1F6:2C 
C1F9:10 
C1FB:24 
C1FD:30 
C1FF:A9 
C201:4C 
C204: 
C204: 
C204: 
C204; 
C204: A8 
C205: A5 
C207:20 


EE 
03 
A4 


F5 
3A 


70 
OA 


03 
2F 
2A 
8F 
7) 


FO 


34 


738 
44 
80 


24 
AO 


06 
32 


20 
A8& 


28 
03 


C1LBE 


C1c3 
C1CB 
C1CB 


c1c3 
C20A 


C8 
C2 


CA 


FC 


05 
CE 


C1F2 


co 
C201 
C201 


CC 


CE 


165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
72 
212 
213 
214 
215 
216 
217 
218 


B. 


B. 
B. 


B. 


F. 


* 
* 


ESCFIX EQU * 
JSR UPSHFT 
ESCFIX1 LDY #4-1 


;upshift lowercase 
;SCAN FOR A MATCH 


ESCFIX2 EOQU * 
CMP ESCIN,Y ‘TS. IT? 
BNE B.ESCFIX3 ;=>NAW 


LDA ESCOUT,Y ;YES, TRANSLATE IT 


ESCFIX3 EQU * 

DEY 

BPL B.ESCFIX2 

BMI F.RETURN ;RETURN:CHAR IN AC 
BOUT JSR ROUT sprint the character 


JMP F.RETURN ;AND RETURN 


Do displaced mnemonic stuff 


* 
MNNDX TXA sget old acc 
AND #S03 smake it a length 
STA LENGTH 
LDA BAS2L ;get old Y into A 
AND #S8F 
JMP DOMN ;and go to open spaces 
* 
GOMINI JSR MINI ;do mini-assembler 
TXA ;X=0. Set mode to 0, and counter 
STA YSAV :so not CR on new line 
RTS 
* 
* Pick an 80 column character for the monitor 
* 
FIXPICK LDY OURCH sget 80 column cursor 
JSR PICK spick the character 
ORA #S80 ;always pick as normal 
RTS sand return 


* 
* 
* 


Fe 
Xe 
Xe 


X. 


* 
* 
* 
* 


F. 


Load CH into Y and clear line 


CLREOL FQU * 

CLREOL LDY CH 

CLREOLZ LDA #SA0 
BIT 
BPL 
BIT 


;fet horizontal position 
;store a normal blank 
ALTCHARSET ;unless alternate char set 
X-CLREOL2 
INVFLG 
BMI X.CLREOL2 
LDA #$20 
CLREOL2 JMP CLR4&0 


sand inverse 


suse inverse hlank 
:clear to end of line 


Call VTAB or VTABZ for 40 or 80 columns. 
is saved in BASL. 


Ace (CV) 


VTABZ TAY ;restore Y 
LDA BASL sand A 
JSR VTABZ sdo VTABZ 
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C20A; 
C2O0A: 
C20A: 
C20A: 
C20A: 
C20A:! 
C208: 
24C€ 
G2Z10% 
C21 3% 
G21 4% 
C213: 
C214: 
C2h34 
F330 


C20D 


C214 


C216: 
C217: 
:88 


C219 


C21A: 
188 


C21 


G2EDs 
C21F: 
C2204 
Giees 
G2223 
E2227 
:A9 
:48 
:A9 


C222 
C224 
C225 


C227% 
C2202 
C228: 
C228: 
C228: 
C228: 
C228: 
C220 
C22F: 
G25 
:69 
748 
G2:34: 
220 


C231 
C233 


C237 


C23A: 
C236: 
C23C: 
C23C% 
C2362 
:A9 
748 


C23C 
C235 


C24F2 
748 
G2a3% 
C243: 


C242 


nu) 


22 
30 


4c 


88 


88 
30 


30 
30 


R&R 
30) 


48 


AD 
29 
BO 
98 
18 


20 


68 
A8 


B9 


3 
cS FE 
C38 FE 


BA 


AS 


3D 


Fz 


Cz 


FB O4 
D6 
OD 


OC 


50 C8 
FRE CD 


Cl 


44 C2 


C2OA 


C220 


CIDO 


CIBE 


CLB6 


C296 


C204 


C23C 


219 * 

220 * EXIT. EITHER EXETT WETH OR WETHOUT 

221 * ENABLING I/O SPACE. 

222% 

223 FLRETURN EQU * 

224 PLP SGET PRIOR 1/0 DISABLE 
225 F.RET2 BMI FRET] ,=>LEAVE IT DISABLED 

226 IMP  FUNCEXTT "=SEXIT & ENABLE 1/0 

227 FeRETI JMP FUNCEXIT+3 ;EXIT DISABLED 

228 * 

229 * Da BOUT, ESCFIX, BASCALC, and KEYIN immediately 
230 * to avoid destroying Accumulator. 

231 * 

232 DISPATCH DEY 

233 BMI F.ROUT scode O = 80 column output 
234 DEY 

235 BMI] KeESCFIX scode ] = ESCEIX 

236 DEY 

Aa ie, BMI F.BASCALC seode 2 = BASCALC 

238 DEY 

239 BM[ B.KEYIN scode 3 = KEYIN 

240 BEY 

241 BMI F.VTABZ “code 4 = VTABZ 

242 * 

243 * First push address of generic return routine 
244 * 

245 LDA #<F.RETURN sreturn to F.RETURN 

246 PHA 

247 LDA #>F.RETURN-1 

248 PHA 

249 * 

250 * TE anv of 5 bits in S$4FB (MODE) is on, then the mode is not 
251 * valid for video firmware. Use old routines. 
252 * 

253 LDA MODE sno, is mode valid? 

254 AND #M.PASCAL4+M.6+M.44M.2+M. 1 

255 BNE GETFUNC s=>no, use 40 column routines 
256 TYA ;80 column routines in 
20% CLC ;2nd half of table 

258 ADC #TABLEN 

259 PHA 

260 JSR CSETUP ;set up 80 column cursor 
261 JSR VTAB scalc base 

262 PLA 

263 TAY srestore Y 

264 * 

265 * Now push address of routine 

266 * 

267 GETFUNC LDA #<BFUNCPG sstuff routine address 
268 PHA 

269 LDA F.TABLE,Y 

270 PHA 

27] * 

272 * RTS goes to routine on stack. When the routine 


Appendix Bo Apple Ie Monitor ROM Listing 


C243: 
C243: 
C243: 
C243 
C244: 
C244; 
C244: 
C244: 
C244: 
C244: 
C245: 
C246 
C247: 
C248: 


C249 
C24A: 
C24B: 
C24C: 
C24D: 
C24E: 
C24F: 
C250: 
C250: 
C250: 
C250 
C251 
C252 
C253 
C254 
C255 
C256 
C257 
C258 
C259: 
C25A: 
C25B: 
CZ5C: 
C25C: 
C25¢ 
C2Z5F* 
C261 
C264 
C267: 
C267 
C268 
C269: 
C26A: 
C26B: 
C26C 
C26D: 
C26D: 
C26E 
C270 


260 


18 
22 


>Fl 


SF 
75 
286 


a Ws 


A8 
51 
El 
94 
E8 
DS 


7B 
264 
267 
:6A 
275 
:6F 
278 
v2 
El 


89 
E8 
D5 


'Z2C °DF :€0 


10 06 


:20 74 C8 
:4C OA C2 


>: A8 
:BA 


48 
98 
48 


2:48 


68 


:C9 FF 
:FO 04 


273 
274 
275 
276 
277 
278 
279 
280 
C244 281 
282 
283 
284 
285 


DFB 
287 
288 
289 
290 
291 
292 
293 
294 
O00C 295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
c25c 310 
311 
C267) 312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
C276 325 


* does an RTS, it returns to F.RETURN, which restores 
the INTCXROM status and returns. 


x 


* 
T 
* 


* 
B 


RTS 


Table of routines to call. All routines are 
in the S$C1O00 page. These are low bytes only. 


~TABLE EQU 
DFB 
DFB 
DFB 
DFB 


#>BRESET-1 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


ABLEN FQU 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


eKEYIN EQU 
BLT 
BPL 
JSR 


GOF.RET JMP 


* 


BeKEYINI] TAY 


* 
N 


TXA 
PHA 
TYA 
PHA 
PHA 


FWeCUR PLA 
CMP 
BEQ 


* 


#>F.HOME-1 3(5) 40 column HOME 

f>F.SCROLL-1 3(€6) 40 column scroll 
f>F.CLREOL-L ;3(€7) 40 column clear line 
#>F.CLREOLZ-1 ;3;(8) 40 column clear with Y set 


3(9) 40/80 column reset 

#>F.CLREOP-1 ;(A) 40 column clear end of page 
#>F.RDKEY-1 3(B) readkey w/flashing checkerboard 
#>F.SETWND-1 ;(C) Set 40 column window 
f#>GOMINI-1 ;(D) Mini-assembhler 

#>F.QUIT-1 ;(CE) quit before IN#0, PR#0 
#>FIXPICK-} ;(F) fix pick for 80 columns 
#>MNNDX-1 3(€10) cale mnemonic index 


*-F, TABLE 


#>B.eHOME-1 ;(11) 80 column HOME 

#>B.eSCROLL=1 3;(12) 80 column scroll 
f>B.CLREOL-1 ;(13) 80 column clear line 
#>B.CLREOLZ~-1] 3(14) 80 column clear with Y set 
#>B.RESET-1 ;€15) 40/80 column reset 
#>B.CLREOP-1 ;(16) 80 column clear end of page 
#>B.RDKEY-1 3(17) readkey w/inverse cursor 
#>B.SETWND-1 :(18) 40/80 column VTAB 
#>GOMINL-L ;:(€19) Mini-Assembler 

#>B.QUIT-1 3;(1A) quit before IN#0,PR#O 
#>PIXPICK-1 3;(1B) fix pick for 80 columns 
#>MNNDX-L 3(1C) cale mnemonic index 


* 


RD8OVID 780 columns? 

BeKEYINI ;3=>no, flash the cursor 
BIN sfet a keystroke 
F.RETURN ;and return 


:preserve A 
;put X on stack 


;restore A 
;save char on stack 
sdummy for cursor/char test 


;gfet last cursor 


#SFF swags it checkerboard? 
NEW.CURL ;=>yes, get old char 


Appendix B: Apple He Monitor ROM Listing i] 


C272 
C276 


C27) 
C278 


C281 


C2833: 
‘a5 
‘29 
> DO 
C208: 
C28E: 
C290: 
C290: 
768 
7 A4 
791 


C285 
C237 
C289 


C291 
C292 
C294 


C296: 
:AA 
C29B: 
C29R: 
C29E: 
C2A0: 
C2A0: 
C2A0: 
220 
C2A6: 
C2AB: 
C2AA: 
:8D 


C297 


C2A3 


C2AC 


COAF: 
C2BU: 
C2B0: 
C2BO0: 
C2BO0: 
C2B0: 
78D 
CZB3: 
> AD 
C2BB: 
C2BB: 
C2BB: 
C2BB: 
C2BR: 
C2 BB: 
C2BB: 


C2B2 


C2B8 


2A9 
C274: 
768 
748 
148 
C279: 
C27B: 
C27): 
C27D: 
C277: 
C27D: 
G27 
C27 Fs 
:A5 


A4 
91 


F6 
DO 


E6 


AD 
10 


68 


68 
AD 
8D 
30 
20 
10 
06 
A5 


60 


A9 


AD 


AD 


FF 
02 


24 
28 


4E 
OA 
4F 
4F 
4F 
40) 
E2 
00 
ED 


24 
28 


00 
10 
C4 


52 
a 
O2 
21 
25 
FB 


FF 
FB 
5D 
af 


62 


C278 


C28B 


C26D 


C270 


co 
co 
C264 


C2A0 
cl 


CO 
C2AA 


05 


C2 BO 
O04 


co 
co 


CO 


326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
34] 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
36] 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
Sa 
378 
379 


LDA #SFF sno, get checkerboard 
BNF NEW.CUR2 ;= always 
NEW.CURI] PLA <tet character 
PHA sinto accumulator 
NEW.CUR2 PHA ‘save for next cursor check 
LDY CH sget cursor horizontal 
STA (BASL),Y tand save char/cursor 
x 


* Now leave char/cursor 


for awhile or 


* until a key is pressed. 


* 
WAITKEY] INC RNDL vbump random seed 
BNE WAITKEY4 3=>and check keypress 
LDA RNDH sis it time to hlink yet? 
INC RNDH 
FOR RNDH 
AND #S40 
BNE NEW.CUR s=>yes, hlink it 
WAITKEY4 LDA KBD sIvories heen tickled? 
BPL WATIKEY] sno, keep blinking 
* 
PLA spop char/cursor 
PLA spop character 
LDY CH sand display it 
STA (BASL),Y 3 ;(Cerase cursor) 
PLLA srestore X 
TAX 
LNA KBD wnow retrieve the kev 
STA KBDSTRB ‘clear the strohe 
BMI GOF.RET s=Dexit always 
* 


ReSETWNDX EOU * 


JSR F.SETWND ;set 40 column width 
BIT RD8OVID °80 columns? 
BPL SKPSKFET ;=>no, width ok 
ASL WNDWDTH smake it 80 
SKPSHFT LDA CV 
STA OURCV supdate OURCV 
RTS 
* 
* HANDLE RESET FOR MONITOR: 
* 
B.«RESETX EQU * 
LDA #SFF ;DESTROY MODE BYTE 
STA MODE 
LDA CLRAN2 _SitLuP 
LDA CLRAN3 > ANNUNCTATORS 
* 
* TF THE OPEN APPLE KEY 


* (ALTAS PADDLE BUTTONS 0) IS 
* DEPRESSED, COLDSTART THE SYSTEM 
* AFTER DESTROYING MEMORY: 
* 
LDA BUTNI 


sGET BUTTON 1 (SOLID) 
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C2BE: 
C2Cc0: 
:AD 


C2C3 


C2C6: 
C2C8: 
C2c8: 
C2c8: 
C2C8: 
: AOD 
C2CA: 
285 
C2CE: 
C2p0: 
C2D1: 
785 
:48 
:A9 
291 
788 


C2C8 


C2CC 


c2nt 
C2D3 
C2D4 
C2D6 
C2N8 


C2D9: 
C2DB: 
C2nc: 
:CY 


C2DE 


C2EO: 
C2E2Z* 
C22¢ 
C2 E25 
C2E2: 
C2ZEZ3 
C2E2: 
C2E2: 
CZE2Z: 
a Oa 
C2E2: 
C2E2: 
:8D 
2:20 
C2E8: 
:8D 
60 
C2EE: 
CZEE: 
C2F2: 
:A4 
C2F4: 
22C 


C2E2 
C2ES 


C2FA 
C2EN 


C2E2 


C2F6 


C2F9: 
C2FB: 
CZEE: 
GZEE: 
C2FE: 
C300: 


S 


C300: 


10 
4¢ 


10 


AY 


A9 
38 


9} 
68 
E9 


DO 


88 


Bl 


30 
4C 


03 
00 
61 
1A 


BO 
00 
3C 
BF 


3D 


AO 
3C 


3C 


O1 
Ol 
EF 


OB 
89 
03 
OA 


95 


2G 
28 
1F 
F2 
26 


E2¢3 
C6 
co 
C2E2 


C2n) 


C2D1 


CZE2 
co 
CA 
C2EN 
co 


BA 8B 


co 
C2EN 


N002 
0002 
0000 


380 
381 

382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
40] 

402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 


BPL 
JMP 
NODIAGS LDA 
BPL 


INC LUDING 


* + *» & 


LDY 
LDA 
STA 
LDA 
SEC 
BLAST EOU 
STA 
PHA 
LDA 
STA 
NEY 
STA 
PLA 
SBC 
CMP 
BNE 


not switch 


* + + * * + SF HH NH HM 


RESETRET EQU 
STA 
JSR 
BNE 
STA 
GORETNI RTS 
* 


ESC IN DFB 

* 

BeRDKEYX LDY 
LDA 
BIT 
BM1 
JMP 

* 

ZSPAREC2 EQU 
DS 
1FNE 
FALL 
FIN 


NODIAGS ;=>Up, no diags 

DIAGS s=>else go do diagnostics 
BUTNO ‘GET BUTTON O (OPEN) 
RESETRET ;=>NOT JIVE OR DIAGS 


BLAST 2 BYTES OF EACH PAGE, 


THE RESET VECTOR: 

#$RO ;LET [T PRECESS DOWN 
#0 

AIL 

{SBF ;START FROM BFXX DOWN 


;FOR SUBTRACT 
x 


AlH 

;save acc to store 
#SAO sblanks 
(AIL),Y 
(AIL),Y 

restore acc for counter 
#1 ;BACK DOWN TO NEXT PAGE 
#1 ;STAY AWAY FROM STACK! 
BLAST 


If there is a ROM card plugged into slot 3, 

don't switch in the internal ROM C3 space. If not, 
only switch them in if there is a RAM card 

in the video slot. 


NOTE: The //e powers up with internal $C3 ROM switched 
in. TSTROMCARD switches it out, RESETRET may or may 


it back in. 


* 
SETSLOTC3ROM ;swap in slot 3 

TSTROMCRD ;ROM or no card plugged in? 
GORETNI :=>ROM or no card, leave $C} slot 
SETINTC3ROM ;card, enable internal] ROM 


$88 ,$95,S8A,S8B 


CH sfet cursor position 
(BASL),Y j3;and character 

RNBOVID 380 columns? 

GORETNI 3=>don't display cursor 
INVERT ;else display cursor, exit 


CIORG-* 

C3ORG-*,0 

*-C3ORG 

2,'C300-— overflow' 


Appendix B: Apple He Monitor ROM Listing 53 


C300: 

C300: 

C300; 

C300: 

C300: 

C300: 

C300: 

C300: 

C300: 

C300; 

C300: 

C300: C300 
C300; C300 
C3I00+2C 43. CE 
C303:70 12 C317 
C305: 

C305: 

C305: 

C305: 

C305: C305 
C305:238 

C306:90 

C307 

C307: 

C307: 

CVW7: 

C347: C307 
CIO7218 

C308: B8 

C309:50 OC G37 
C3OB: 

CIR: 

C3OB: 

COB: 

C3OB: 

C3UB: 

C30B: 

C30B: 

C3UB:01 

C3NC:88 

CON: 

C3ND:4A 

C30K:50 

C30F 256 

Coes 

Cale 

Cas 

Oe Be 

Csr: 

COLL4e 76.E3 
C31424C €3-C3 
Coie? 

C502 

C317:8N 7B 6 


4 


INCLUDE C3SPACE 
FOTO IO IO IO IO IOI RO I IO IO IO IO Ik 


THIS JS THE SC3XX ROM SPACE: 

Note: This page must not he used by any routines 

called hy the F8 ROM. When it is referenced, it claims 

the C800 space (kicking out anyone who was using it). 

This also means that peripheral cards cannot use the AUXMOVE 
and XFER routines from their C800 space. 


+ + + * + & H 


x 
FOO IOI IOI RO IO RIO FOTO IO IIT IR III I 
CNOO rou * 
BASICINT EQuU * 
BIT SEV set vilag (init) 
BYVS  BASICENT :CALWAYS TAKEN) 
* 
* BASIC jiaput entry poine. After a PR#3, this is the 
* address that is called to input each character. 


* 
BASICIN EQU * 
SEC 
NDFB S90 ;BCC OPCODE CNEVER TAKEN) 
* 
* BASIC output entry point. After a PR#I3, rhis is the 
* address that is called to output each character. 
* 
BASICOUT EOU * 
CLG 
CLV :CLEAR VFLAG CNOT INIT) 
BVG BASICENT :CALWAYS TAKEN) 
k 
* Paseal 1.1 Firmware Protocol table: 
* 
* This tables identifies this as an Apple //e &0 column 
* card. It points to the four routines available to 
* programs doing 1/0 using the Pascal |.t Firmware 
* Protocol. 
x 
DFB Su] SGENERLIC STGNATURE BYTE 
DFR $88 SDEVICE SIGNATURE BYTE 


DFB *>JPINIT ;PASCAL INUT 
DFR #>JPREAD ; PASCAL READ 
DPB &SSPWRITE  ;PASCAL WRITE 
DFB #>.PSTAT ;PASCAL STATUS 
FORO III ROI IO IO IO IOI IOI RIOR a 
x 
* L28K SUPPORT ROUTINE ENTRIES: 
* 
IMP MOVE sYEMORY MOVE ACROSS BANKS 


RE ER > TRANSFER ACROSS BANKS 
FOO RO IO IO III TO I IOI IOI ko 


x 
BASICENT STA CHAR 
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C3I1A:98 54 TYA ; AND Y 


C31B:48 55 PHA 

C3I1C:8A 56 TXA ; AND X 

C3I1D:48 57 PHA 

CILE:08 58 PHP ;SAVE CARRY & VFLAG 

C3I1F: 59 * 

C31F: 60 * If escape mode is allowed, the high bit of MSLOT is 
C31F: 61 * clear. Set M.CTL to flag that 1) escapes are allowed, and 
C31F: 62 * 2) that control characters should not be echoed. 
CIF: 63 * M.CTL is cleared by BPRINT. 

C3I1F: 64 * 

C3LF:AD FB 04 65 LDA MODE ;else esc enable, ctl disable 
C322:2C F8 07 66 BIT MSLOT ;get MSLOT 

C325:30 05 C32C 67 BM1 NOGETLN s=>Esc disable, ctl char enable 
C327:09 08 68 ORA #M.CTL 

C329:8D FB 04 69 STA MODE 

C32C: 70 *% 

C32C: C32C 7) NOGETLN EQU * 

C32C:20 6D C3 72 JSR SETC8 ;SETUP C8 INDICATOR 

C32F:28 73 PLP >GET VEFLAG CINIT) 

C330:70 15 C347 74 BVS JBASINIT ;=>DO THE INIT 

C332: 75 * 

C332: 76 * [f a PR#O has been done, input should he transferred 
C332; 77 * from the video firmware to KEYIN. This is detected 
C332: 78 * if the high bit of the mode byte is set. 

C332: 79% 

C332:90 10 C344 80 BCC Jc8 ;=Poutput, no problem 
C334:AA 81 TAX ;test mode 

C335:10 OD C344 82 BPL Jc8& svideo firmware is on 

C337:20 5B CD 83 JSR SETKEYIN ;else set FDIB as input 
C33A:68 84 PLA srestore registers 

C3IB:AA 85 TAX 

C33C:68 86 PLA 

C33D:A8 87 TAY 

C33E:AD 7B 06 88 LDA CHAR 

C341:6C 38 00 89 JMP (KSWL) ;g0 input the character 

C344: 90 * 

C344:4C 7C C8 91 JC8 JMP C8BASIC ‘GET OUT OF CN SPACE 

C347:4¢c 03 C8 92 JBASINIT JMP BASICINIT ;=>GOTO C8 SPACE 

C34A: 93 * 

C34A: C34A 94 JPINIT Fou * 

C34A:20 6D C3 95 JSR SETC8 ;SETUP C8 INDICATOR 

C34D:4C B4 C9 96 JMP PINIT sXFER TO PASCAL LNIT 

C350: C350 97 JPREAD FQU * 

C350:20 6D C3 98 JSR SETC8& ;SETUP C8 INDICATOR 

C353:4C D6 C9 99 JMP PREAD ;XFER TO PASCAL READ 

C356: C356 100 JPWRITE EQU * 

C356:20 6D C3 101 JSR seTC8 ;SETUP C8 INDICATOR 

C359:4C FO C9 102 JMP PWRITFE >XFER TO PASCAL, WRITE 

C35C: 103 * 

C35C:AA 104 JPSTAT TAX sis request code = WU? 
C35D:FO 08 C367 105 BEQ PIORDY s=>yes, ready for output 
C35F:CA 106 DEX scheck for any input 

C360:bD0 07 C369 107 BNE PSTERR ;=>bad request, return error 
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ui 


ul 


C362 
C365 
C367 
C368 


:2C OO CO 


20 
238 
160 


C369; 


C369 


C36B: 
C36C: 


2 A2 
18 
60 


C36N: 
C36N: 
C36D: 
C36N: 
C36D: 
C36D: 
C36D: 
C36D: 
C36N: 
C36D: 


C36D: 
CI36F: 


C3/2 
C375 


A2 
8E 
7 AB 
760 


C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 
C376: 


C376 
C377 
C378 
C379 
c37C 


C37 Bs 


C380 


248 
:98 


748 


: AD 
748 
AU 
248 


C381: 
Cae13 
C381: 


C381 
C383 
C386 


C389: 


290 
78N 
:8D 
BO 


C38B: 
C38B: 


C38B: 
C38E: 


ob 


8D 
8D 


04 


03 


G3 
F8 
KF 


08 
02 
05 
06 


04 
03 


7 
CFE 


CO 


CO 


CO 
CO 


co 
cO 


C36B 


C36D 


C376 


C38B 


C391 


C38B 


KBD ‘look for a key 
PNOTRDY *=>no keystroked 
#3 :else flag error 


KKEKAKHA KKK EREKEKAAKEKKAAKKEKKAKRKE EE 


SETCS 

SETUP IRQ $C800 PROTOCOL 
NONE 

NONE 

NOTHING 

NOTHING 


KEE KEKRAKKERKEEKKEKEEKKARAKRRAKKKKKKKKAKREKEKE 


x 
#<CNOO ;SLOT NUMBER 

MSLOT ;STUFF LT 

SCFFF skick out other S$C8 ROMs 


MIKE RHAE EEE REKKEKKKAKEKEKEKKEKAKKEKKKKKKRKKEKK 


MOVE 

PERFORM CROSSBANK MEMORY MOVE 
AL=SOURCE ADDRESS 

A2=SOURCE END 


: A4S=DESTINATION START 
: CARRY SET=MAIN-->CARD 


CLR=CARD-->MAIN 
NONE 
NOTHING 
NOTHING 


RAKE KKK AK RK RARE AKER KEKE EEK RAKE KEKKKEKER 


108 BIT 
109 BPL 
L110 PELORDY SEC 
111 RTS 
112 % 

113 PSTERR  LNDYX 
114 PNOTRDY CLC 
}5 RTS 
L116 

L17 * NAME 

118 * FUNCTION: 
119 * TNPUT 

120 * OUTPUT 
P21 VOLATILES 
122 * CALLS 

123 

124 * 

125 SETC8 KQU 
126 LDX 
127 STX 
128 LOX 
129 RTS 
130 

131 * NAME 

132 * FUNCTION: 
133 * TNPUT 

134 * 

35> 

136 * 

137 * 

138 * OUTPUT 
139 * VOLATILE: 
140 * CALLS 

141 

142 * 

143 MOVE EQU 
144 PHA 
145 TYA 
146 PHA 
147 EDA 
148 PHA 
149 LDA 
150 PHA 
151 * 

152 * SET FLAGS 
Bs ie 

154 BCC 
155 STA 
156 STA 
bz BCS 
158 * 

159 MOVEC2M EQU 
160 STA 
lol STA 


-SAVE AC 
; AND Y 


RNRAMRD ;SAVE STATE OF 
; MEMORY FLAGS 
RDRAMWRT 


FOR CROSSBANK MOVE: 


MOVEC2M >=>CARD-~>MAIN 
RDMALNRAM ;SEL FOR MALN 
WRCARDRAM ; TO CARD 
MOVESTRT  ;=>( ALWAYS TAKEN) 


* 


WRMAINRAM ;SET FOR CARD 
RNCARDRAM ; TO MAIN 
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C391: 162 * 


C391: C391 163 MOVESTRT EOU * 

C391:A0 OO 164 LDY #0 ;DUMMY INDEX 
C393: 165 * 

C393: C393 166 MOVELOOP EQU * 

C393:Bl 3c 167 LDA (AIL),Y ;GET A BYTE 
C395:91 42 168 STA (ASL),Y  ;MOVE IT 
C397:E6 42 169 INC A4&L 

C399:DO 02 C39D 170 BNE NXTAI 

C39B:E6 43 171 INC A4H 

C39N:A5 3C 172 NXTAL LDA ALL 

C39F:C5 3E 173 CMP A2L 

C3Al1:A5 3D 174 LDA AIH 

C3A3:E5 3F 175 SBC A2H 

C3A5:E6 3C 176 INC AIL 

C3A7:DO 02 C3AB_ 177 BNE CO] 

C3A9:F6 3D 178 INC AIH 

C3AB:90 E6 C393 179 COl BCC MOVELOOP ;=>MORE TO MOVE 
C3AD: 180 * 

C3AD: 181 * RESTORE ORIGINAL FLAGS: 

C3 AD: 182 * 

C3AN:8D 04 CO 183 STA WRMAINRAM ;CLEAR FLAG2 
C3B0 :68 184 PLA ;GET ORIGINAL STATE 
C3B1:10 03 C3B6 185 BPL C03 :=>IT WAS OFF 
C3B3:8D 05 CO 186 STA WRCARDRAM 

C3B6: C3B6 187 C03 EQU * 

C3B6:8D 02 CO 188 STA RDMAINRAM ;CLEAR FLAGI 
C3B9:68 189 PLA ;GET ORIGINAL STATE 
C3BA:10 03 C3BF 190 BPL MOVERET 3=>IT WAS OFF 
C3BC:8D 03 CO 191 STA RDCARDRAM 

C3BF: C3BF 192 MOVERET EQU * 

C3BF:68 193 PLA sRESTORE Y 
C3C0: A8 194 TAY 

C3C1 268 195 PLA ; AND AC 
C3C2:60 196 RTS 

C3C3: 197 RRR RRR RIGOR II IO IORI AI II 
C3C3: 198 * NAME >: XFER 

C3C3: 199 * FUNCTION: TRANSFER CONTROL CROSSBANK 
C3C3: 200 * INPUT : SO3ED=TRANSFER ADDR 

C3C3: 201 * : CARRY SET=XFER TO CARD 
C3C3: 202 * CLR=XFER TO MAIN 
C3C3% 203 * : VFLAG CLR=USE STD ZP/STK 
C3C3% 204 * : SET=USE ALT ZP/STK 
C3G3: 205 * OUTPUT : NONE 

C3C3% 206 * VOLATILE: SO3EN/O3EE IN DEST BANK 
C3C3: 207 * CALLS >: NOTHING 

C3C3: 208 * NOTE : ENTERED VIA JMP, NOT JSR 
C3C3: 2019 RII IRR RR IRI IORI IORI III OIA IIIA 
c3c3: 210 * 

C3C3: C3C3 211 XFEPR EQU * 

C3C3:48 212 PHA ;SAVE AC ON CURRENT STACK 
C3c4: 213 * 

C3C4: 214 * COPY NESTINATION ADDRESS TO THE 
C3c4: 215 * OTHER BANK SO THAT WE HAVE IT 
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C3C4: 
C3C4: 
C3C4:AD 
C3C7:48 
C3C8:ADN 
C3CB:48 
C3CC: 
C3cc: 
C3ICe: 
C3CC:90 
CICE:8) 
C3D1:8D 
C3ID4: BO 
C3N6: 
C3D6:8N 
C3D9:8D 
C3DCs 
C3062 
C3IDC:68 
C3DD:8D 
C3EO :68 
C3E1:8D 
CI3E4 :68 
C3E5:70 
CIE7:38D 
C3JEA:50 
CIEC: 8D 
C3EF:6C 
C3r23 
C3F2: 
C3F4: 
C3F4: 
C3F4: 
CUPS: 
C3F4:8N 
C3F7:4C 
C3PA: 
C3FA: 
C3FA: 
C3FA: 
CUFA: 
CURA: 
C3FAI2C 
C3FD:38D 
C40: 
C400: 
C400; 
C40N4 
C400: 
Cano: 
C400: 
C400: 
C400: 
C400 2:38 


os 


8 
03 
05 
06 


O2 
O4 


05 
O08 
03 
09 
ED 


81 
7A 


b5 
07 


03 


Q3 


, OF 


3 


C3EC 
elo) 
CUEF 
co 
03 


NNO 2 


co 
FC 


cn 
CO 


C400 


rye PY IN NM fo bo 
PhoOoN fe INS bo fry 
Dwr wn 


ho 
be 
oO 


229 
230 
241 
232 
23 
234 
239 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250) 
25) 
252 
ae 
204 
255 
256 
257 
258 
259 
260 
261 
262 

20 


DW Why 


* 


IN CASE WS DO A SWAP: 


* 
LDA SOJED SGEP XFERADAR Lo 
PHA ;SAVE ON CURRENT STACK 
LDA SORE <GET XFERADDR HI 
PHA ;SAVE TT TO 
* 
* SWITCH TO APPROPRIATE BANK: 
* 
BCC XFERC2M 3 =>CARD--OMAIN 
STA RDCARDRAM ;SET FOR RUNNING 
STA WRCARDRAM 3 [N CARD RAM 
BCS XFERZP 3=> alwavs taken 
RFERC2AM EO 
STA RDMAINRAM ;S5E0 FOR RUNNTNG 
STA WRMATNRAM +: [IN MATIN RAM 
* 
KEERZP -EOU oF SSWITGH ToO:.ALT 4PESTK 
PLA ,STURFF XFERADDR 
STA. “SOS ER ; HI AND 
PLA 
STA  SO3ED ae 
PLA sRESTORE AC 
BVS XFERAZP ;=>switch in alternate zp 
STA SETSTDZP  jelse force standard zap 
BVC  =oIMPDEST ;=-alwavs perform transfer 
XFERAZP STA SETALTZP  jswitch in alternate zp 
JMPDEST IMP (CSO3ED) T= D0fF we po 
* 
DS CRORG+SF4—-* 0 gpad to interrupt stutf 
* 
* This is where the interrupt reutine returns to. 
* Ar this poine the ROM is not necessarily switched in so... 
* 
TRODONF STA SCOR] sread ROM, write RAM 
IMP TRODONE? sand jump cto ROM 
* 
* This is the main entry point for the interrupt 
kX handler. This switches in the internal ROM and 
* jumps to the main pare of the interrupt handler 
* at SC400, 
k 
irq bit rdexrom sTest internal or external rom 
Sta setintexrom ;Force in ROM to get to interrupt handler 
* 
* Fall into $C49)0 which is now switched int! 
k 
INCLUDE TRO 
* 
* Here is the main interrupt handler 
* 
BOK KKK KKK KOK RR FOR RIK ROKK ITOK RR RIOR KOK Ck 
newirq equ * 
eld ;make no assumptions!! 
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c401 
C402 


c405 
C406 
C407 
C408 


c410 
C411 


C417 


C421 
C423 
C426 
C427 


C42A: 
:8D 
:09 
22G 
C434: 
28D 


C42C 
C42F 
C431 


C436 


C439: 
C43B: 
C43B: 
C43E: 
:09 
ZC 
C445: 
249 
:8D 
C44C: 
C44F: 
C451: 
:8E 
7 AE 
C458: 
C459: 
C45C: 
788 


C440 
C442 


C447 
C449 


C452 
C455 


C45E 


C45F: 
285 
:68 


C461 
C463 


:38 
:30 
C404: 
24 

7:48 
748 
:BA 
C409: 
C40A: 
C4OB: 
c40C: 
C40D: 
C40E: 
C40F: 
:48 
: BD 
C414: 
C416: 
C417: 
> AD 
C41 A: 
C41D: 
C41F: 
:A9 
78D 
:2A 
E2C 


18 


BA 
E8 
E8 
E8 
E8 


98 


29 
A8 


2D 
29 
FO 


10 


10 


09 


2C 


10 


10 


2C 
10 
BA 


9A 
8) 
09 


30 


0} 


00 
10 


18 
1c 
80 
05 
20 
54 


13 
05 
02 
20 
14 
05 
04 
10 


12 
OC 
OC 
11 
02 
06 
81 
16 
OD 


O1 
00 
08 
80 


Oc 
44 


C405 


01 


co 

co 
c426 

co 

CO 


C431 
CO 


co 
C43B 
co 


C43B 
CO 
C44C 


CO 
C449 


co 
co 
C45E 


1 
01 


co 


C46D 


irgintcx pha 


* Now test & 


irq2 


irg3 


irgq4 
irqg5 


irq6 
irq? 


irg8 


sec 
bmi 
cle 


pha 
pha 
txa 
tsx 
inx 
inx 
inx 
inx 
pha 
tya 
pha 
lda 
and 
tay 


lda 
and 
and 
beq 
lda 
sta 
rol 
bit 
hpl 
sta 
ora 
bit 
bpl 
sta 
ora 
equ 
bit 
bpl 
ora 
bit 
bpl 
eor 
sta 
hit 
bpl 
tsx 
stx 
ldx 
txs 
sta 
ora 
dey 
bmi 
sta 
pla 


;C=1 if internal slot space 
irgintcx 


;Save A on stack instead of $45 
;Make room for rts if needed 


;oave X 
sGet stack pointer for BRK bit 
*Can't do add cause we need C 


sand Y 


$100,x ;Get status for break test 
#S10 ;A = $10 if break 
;Save it for later 
set the state of the machine. Don't alter Y 
rd80col ;Test for 80 store and page 2 


rdpage2 
#580 ;Make it 90 or $80 
irq2 ;Branch if no change needed 
#520 ;Set shifted page 2 reset bit 
txtpagel ;Set page 1 
A sAlign bit & shift in slotcx bit 
rdramrd ;Are we reading from aux ram? 
irg3 ;Branch if main ram read 
rdmainram ;Flse, switch main in 
#$20 ;and record the event 
tdramwrt ;Do the same for ram write 
irg4 
wrmainram 
#S10 
x 
rdlcram ;Determine if language card active 
irg? 
#S0C ‘Sets two bits. Second is redundant 
rdlcbnk2 ;if INC used to restore. 
irqS ;Branch if not page 2 of SDONO 
#506 ;Set bits for page 2 
romin ;Enable ROM STA leaves write enable alone 
rdaltzp ;Last...eand very important 
irqg8 ;If alternate stack 
;store current stack pointer at $101 
$101 
$100 ;Retreve main stack pointer from $100 
setstdzp 
#580 ;Mark stack switched 
‘Was it a break? 
irq? 
macstat ;Save state of machine 


;Restore registers 
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C464 


C465: 
C466: 
268 
:68 
768 


C467 
C468 
C469 

66 


C46A: 
:48 
C46E: 
C471: 
:A9 
748 
C475: 
:48 
:08 
:4C 
C47C: 
C47C: 
C47C: 
C47C: 
C47C: 
C47C: 
C47C: 
C4&7C: 
C47C: 
C47C: 
C47F: 
C480: 
78) 
C485: 
:9A 
C489: 
C43B: 
C48): 
2 FE 
288 
230 
:0A 
7 DO 
204 


C46D 


C472 
C474 


C477 
C478 
C479 


C482 


C488 


C490 
C493 
C494 
C496 
C497 
c499 


C49A:; 
C49B: 
C49C: 
c49pD: 
C49: 
248 
:A9 
C4A3: 
C4A4: 
C4A6: 
248 


C4A0 
C4Al 


C4A8 


C4A9: 
148 


C4 AB 


60 


:A8 


68 


4c 


AD 


AY 


AD 
68 
10 


AE 


AD 
10 
BE 


OA 
68 
A8 
BA 
AY 


a 
Ad 
69 


AY 


47 


F8 


C3 


F4 


74 


31 
Q7 
09 
01 
06 
06 
Cl 
O00 
03 


FZ 


40 


Cu 


06 
are 


8D 


pla 
FA 


QO7 


FC 


co 


me) 
01 


C493 
C4 
CO 


C483B 


61 
62 
63 
64 
65 


67 
68 
69 
70 
7] 
V2 
73 


75 
76 
a: 
78 
79 
80 
81 
82 


84 
85 
86 
$7 
88 
89 
90 
9] 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
1n8 
LO9 
110 
111 
112 
113 


tay 
pla 
tax 
pla 
pla ;A stored where RTS address would go 
jmp newbreak 3;Go to normal break routine stuff 
irg9 pha *Save state of machine on stack 
lda mslot ;Save mslot 
pha 
Ida #<irqdone ;Save return irg address 
pha 
lda #>irqdone :so when interrupt does RTL 
pha ;It returns to irqdone 
php :Status for user's RTI 
jmp irquser ;OfF to the user 
* The user's RTI returns here 
* BEWARE 
* The rom must be reenabled with a LNA romin 
* This way if the LC was write protected, it still is 
* if it was write enabled, it still is 
* if it was being write enabled ( 2 ldas), it still will be 
* The restore loop uses an INC because some of the switches are read 
* and some are write. I[t must be an INC abs,x since both the 6502 . 
* the 65C02 do two reads before the write. 
irqfix lda_romin ;Must be lda! 
pla sRecover machine state 
bpl  irqdnl ;Branch if main 2P 
sta setaltzp 
idx S101 3Get alt stack pointer 
txs 
iradnl idy #806 *Y = index into table of switch addresses 
irqdn2 bpl irqdn3 ;Branch if no change 


Idx irqtble,v ;Get soft switch address 
inc Scono,x sHit the switch. NO PAGE CROSS! 


irqdn3 dey 


bmi irqdn4 


asl A fet next bit toa check 
bne irqdn2 
irqdn&4 asl A ;C = | if internal eloc space 
asl A 
pla sRestore the registers 
tay 
tsx ;Save the stack pointer 
lda #840 sRTL opcode 
pha 
lda #€setslotexrom 
pha 
Ida ##>setslotecxrom 
adc #0 ;Add | if internal slot space 
pha 
lida #358D >STA setslotexrom 
pha 
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C4AC:9A 
C4AD:8A 
C4AE:69 
C4B0: AA 
C4B1:38 
C4B2:E9 
C4B4:9D 
C4B7:E8 
C4B8:A93 
C4BA:9D 
C4BD:68 
C4BE:AA 
C4BF:68 
C4c0:60 


C4C1 :83 
C4C4:05 
C4C7: 


03 


07 


00 


01 
00 


8B 
03 


01 


Ol 


8B 
55 


114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


129 
130 
21 


OBJECT FILE 


c600 


coOsI 
0009 
0001 
O5B8 
cooo 


c600 


txs ;Restore stack pointer 

txa ;Make return address on stack point to code on stack 

adc #3 ;C = O from earlier ade 

tax 

sec 

sbc #7 ;Point to where code starts 

sta $100,x 

inx 

lda_ #$1 

sta $100,x 

pla 

tax 

pla 

rts ;Go to code on stack 
irqtble dfb >1lcbank2,>lcbankl ,>lcbankl 

dfb Dwreardram,>rdcardram, >txtpage2 

INCLUDE DIAGS 


REFLIST.1 

ORG C3ORG+$300 

These routines test all 64K RAM, as well as the 64K on an Auxiliary 
memory card (when present). With the exception of the INTCXROM switch 
of the IOU, all combinations of the IOU switches are tested and ver- 
ified. All configurations of the MMU switches are also tested. 


NAME IS 


In the event of any failure, the diagnostic is halted. A message 

is written to screen memory indicating the source of the failure. 

When RAM fails the message is composed of "RAM ZP" (indicating failure 
detected in the first page of RAM) or "RAM" (meaning the other 63./5K), 
followed by a binary representation of the failing bits set to "1". 

For example, "RAM 0110000 O" indicates that bits 5 and 6 were 
detected as failing. To represent auxiliary memory, a "*" symbol is 
printed preceeding the message. 


When the MMU or IOU fail, the message is simply "MMU" or “IOU". 


The test will run continuously for as long as the Open and Closed 
Apple keys remain depressed (or no keyboard is connected) and no 
failures are encountered. The message "System OK" will appear in 

the middle of the screen when a successful cycle has been run and 
either of the Apple keys are no longer depressed. Another cycle 

may be initiated by pressing both Apple keys again while this message 
is on the screen. To exit diagnostics, Control-Reset must be pressed 
without the Apple keys depressed. 


+ +t + +e ee ee Oe OU OUOUOU OO O 


* 
TEXT equ $C051 
IOUIDX equ $09 
MMUIDX equ SOl 
SCREEN equ $5B8 
IOSPACE equ $C000 
* 

DIAGS equ * 
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6] 


C600 


Cbhv3: 
C605: 
C67: 
279 


C608 


COUB: 
Coop: 
CAOE: 
Colo: 
279 
:D5 
Cora: 
Cols: 
Chl19: 
CoLB: 
Cole: 
COlF: 
249 
C623: 
Sy 


Colt 
C614 


C621 


C624 


Ch26: 


Ch28: 
Ch2A: 
Co2B: 
Ch2Zkt 
C625: 
C630: 
:86 
2A2 
>86 
:E6 
C63A: 
C63B: 
78D 
:A5 
229 
209 
: DO 
C649: 
C64C: 
CO64F: 
769 
C653: 
:A5 
785 
:98 
C65A: 


C632 
C634 
C636 
C638 


CO3F 
c64t 
C643 
C645 
C647 


C651 
C655 


C657 
C659 


2 


aro B! 
C603: 
C603: 
C603: 
C603: 


AQ 
A2 
18 


95 
E8& 
DO 
18 


no 
EB 
DO 
6A 
2C 
19 


88 
30 
35 
18 


4C 


86 
86 


A8 
8D 


AD 
AD 
A5 


AO 


50 


U4 
OO 


B4 
OO 


B4 
00 
10 


FS 


19 
2 
AS 


E] 
O6 


a0 


CD 


Ol 
2 
03 
O04 
04 
Ol 


83 
83 
1 
FO 
co 
OC 
8B 
8B 
Ol 
OF 
02 
Ol 
03 


00 


CU 


G7 


C7. 


co 


co 
co 


co 
co 


C607 


C628 


C6L0 


C623 


C607 
Co2k 


CO2E 


C655 


C657 


34 
35 
36 
37 
38 


40) 
4] 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
22 
53 
94 
55 
56 
57 
38 
59 


6} 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
B2 
83 
84 
85 
86 


we om Fe OF 


TSTAPG 


zpl 


zp2 


zp3 


ZPERROR 


I'STMEM 


mem 
mem? 


mem3 
mem4 


sta 


Test Zero-Page, 


ldy 
ldx 
Cle 
adc 
sta 
inx 
bne 
cle 
ade 
cmp 
bne 
inx 
bne 
ror 
bit 
bpl 
cor 
dey 
bpt 
bmi 


eur 
ele 
imp 
equ 
stx 
stx 
stx 
ldx 
stx 
inc 
tay 
sta 
sta 
lda 
and 
cmp 
bne 
lda 
lda 
tda 
adc 
bne 
lda 
sta 
tya 
ldy 


SCOS0 


#34 
£0 


ntbi,v 
SOO ,x 


zpl 


ntbl ,v 
SOO ,x 
“~APERROR 


2p2 

a 
RDVELBAR 
zp3 

HSA5 


2pl 
TSTMEM 


SOO ,x 


BADBITS 
x 

SO] 

$02 

$03 

#G 

S04 

$0] 


$CO083 
$C083 
$Ol 
#SFO 
#SCO 
mem3 
SCO8B 
$CO8B 
S01 
#SF 
mem4 
$01 
$03 


#500 


Appendix 


then all of memory. 
Accumulator can be anything on entry. 
Addresses between SCOO0O and SCFFF are mapped to main S$DOO0O bank. 
Auxillary 64K is alse tested if present. 


Report errors when encountered. 
All registers used, but no stack. 


:fFill zero vage with a pattern 


rafter al} bvtes filled, 
; ACC has original value 
sso values can be tested 


again. 


sbranch if memory failed 


sloop until all 256 bytes tested 


schange ACC so location SFF will change 
; use RDVBLBAR for a little randomness... 


suse a different pattern now 
sbranch to retest with other value 
sbranch always 


swhich bits are bad? 
sindicate zero page failure 


;do RAM SLOU-SFEFFFF five times 
;point to page | first 
ssave ACC in Y for now 


;anticipate not S$COO0O range... 


;fet page address 
stest for SCU-SCF range 


;branch if note.e. 
sselect primary SDOO0 space 
;Plus carry =+510 


sbranch always taken 


;restore pattern to ACC 
;fill this page with the pattern 
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C65C: 
C65): 
791 
>CA 


C660 
C662 


C663: 
C665: 


C667 


CO6F. 


C671 


C677 


C67B 


C682 


C684 


C688 


C68A: 
:98 


C68C 


C68D: 
C68F: 
C690: 
C693: 
C695: 
C697: 
7CA 


C699 


C69A: 
C69C: 
:C8 
C69F: 
COAL: 
: DO 
:6A 
C6A6: 
210 
:49 


C69E 


C6A3 


C6A5 


C6A9 
C6AB 


C6AD: 
COAF: 


CO6B1: 
:20 
: BO 
0F 
204 
COBB: 


C6B2 
C6B5 
C6B?7 
C6BA 


18 
7D 


10 
A2 


:C8 
C668: 
CO6A: 
C66C: 


DO 
pis) 
DO 


>E6 
C670: 
> AD 
C674: 
:A5 
C679: 
:C9 
C67DN: 
CO7F:;: 
:A5 
:69 
C686: 
2: A5 


A8 


AD 


29 


AD 


85 


AO 
18 
7D 
d1 
nd 
Bl 


10 
A2 


E6 


C6 
10 


CD 


B4& C7 
02 


2 C667 
O4 


F2 C65C 
Ol 


CC C63A 


83 
383 
Ol 
FO 
co 
09 
8B CO 
O1 
OF 
02 
01 
03 


CO 
co 


C688 


COBA 


00 


B4 C7 

02 

35 C6CC 
02 


O02 C69F, 
04 
EE C68F 
Ol 
CB C670 
19 CO 
02 

A5 

04 

37 C638 


C6AD 


8D C9 
07 C6BE 
00 OC 


00 OC 


R7 
88 
89 
90 
91 
92 
93 
94 
95 
96 


98 

99 
too 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
Il] 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 


133 
134 
135 
136 
137 
138 


memS 


mem6 


mem? 


mem8 
mem9 


memA 


mem} 


memC 


cle 
ade 
sta 
dex 
bpl 
ldx 
iny 
bne 
inc 
bne 


inc 
tay 
lda 
lda 
lda 
and 
cmp 
bne 
lda 
lda 
adc 
bne 
lda 
sta 
tya 
ldy 
cle 
ade 
eor 
bne 
lda 
dex 
bol 
ldx 
inv 
bne 
inc 
bne 
ror 
bit 
bpl 
eor 
dec 
bpl 


TAX 
JSR 
BNE 
ASL 
ASL 
CMP 


nebl,x 
($02),¥ 


mem6 


#4 


mem5 
l 
me m2 


$01 


$C083 
$C083 
SOl 
#SFO 
#SCO 
mem8 
SCO8BB 
$01 
SF 
mem9 
Sol 
$03 


#S00 


ntbl,x 
(SO2),¥ 
MEMF.RROR 
($02),y 


memB 


#4 


memA 

] 

mem? 

a 
RDVBLBAR 
memC 
#SA5 

$04 

mem! 


STAUX 
SWCHTST1 
$coo 

A 

$coo 
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skeep x in the range 0-4 


:all 256 filled vet? 

sbrancbh if not 

;bump page # 

sloop through $0100 to SFFOO 


;point to page 1 again 
ssave ACC in Y for now 
santicipate not $COOO range... 


;get page address 
stest for SCO-SCF range 


;branch if not... 
sselect primary $DO0O0 space 


;Plus carry =+$10 
;branch always Caken 


;restore pattern to ACC 
;fill this page with the pattern 


;if any bits are different, give up!!! 
;restore correct pattern 
;keep x in the range 0-4 


s;all 256 filled yet? 

;branch if not 

;bump page # 

;loop through $0100 to S$FFOO 

;change ACC for next pass 

; use RDVBLBAR for a little randomness... 


shave 5 passes heen done yet? 
sbranch if noteec. 


3;Save acc 

;set aux memory & write SEE to $C00,$800 
s=>not 128K 

sshift test byte 


;check memory 


Apple Tle Monitor ROM: Listing 433 


COBE: 
c6co: 
C6C3: 
C6Cc5: 
c6C6: 
C6Cc9: 
C6CC: 
C6CD: 
C6CE: 
C6D1: 
C6D2: 
C6D4: 
C6D/7: 
C6D9: 
C6DB: 
C6DE: 
C6EL: 
C6E2: 
C6E3: 
C6ES5: 
C6K8: 
COEB: 
C6EE: 
COP]: 
COF4: 
C6F?7: 
C6F8: 
C6FA: 
COFB: 
C6FN: 
COFF: 
C701: 
GI038 
C705: 
CTOTs 
C70A: 
C70OD: 
CLIO: 
CTLs 
C713: 
Chis: 
CELA: 
C717: 
:A9 
C7ILA: 
C7 1B: 
Gries 
CT LES 
C720: 
: FO 
C1243 
C726: 
C7293: 
C7 2B: 


C718 


C722 


Of 


2A 
99 
88 


AQ 
B9 
90 
B9 


76 
00 
| 
09 
03 
13 


03 


> B4 


AO 
06 
FE 
06 


F6 
5] 
54 
00 
00 
00 
00 


Fl 


27 
03 
02 
05 
AA 
Q3 
BO 
EA 
Bl 


F? 
10 


58 


B6 


F3 
FE 
02 
FO 
03 
F3 


C736 
08 
C736 


co 
C6 


co 


C6D/ 
C7 


BF 
co 


C6DB 
co 
CO 
04 
QO5 
06 
QO? 


COEB 
C724 
C703 
C70A 
5 
C7 


05 


C70A 


O05 


C715 
C722 


CG] 
C725 
C7 


139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
15] 
152 
153 
154 
155 
156 
157 
158 
159 
160 
t61 
162 
163 
164 
165 
166 
167 
168 
169 
170 
17) 
172 
E73 
174 
175 
176 
177 
178 
179 
180 
18) 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 


SWCHTST1 BNE SWCHTST 


MEMERROR sec 


BADBiTS 


bhitsl 


clrsts 


clrs 


hadmain 


badprim 


bhits2 


hangx 


BADSWICH ldy 


bswtchl 


CMP 
BEQ 
txa 
STA 


jmp 


tax 
lda 
elv 
bpl 
bit 
lda 
ldy 
sta 
sta 
dey 
dev 
bne 
sta 
Sta 
sta 
sta 
sta 
sta 
inv 
bne 
txa 
beq 
ldy 
bes 
ldv 
lda 
bye 
sta 
lda 
sta 
dey 
bpl 
ldy 
txa 
lsr 
tax 
lda 
rol 
sta 
dey 
dey 
bne 
beq 


lda 
bec 
lda 


-=>not 128K 


$800 slook for shadowing 

SWCHTST ,=>not 128K 

SETALTZP 3;swap in alt zero page 

TSTZPG ; and test it! 
s;indicate main ram failure 
;save bit pattern in x for now 

RDRAMRD ;determine if primary or auxillary RAM 
swith V-FLG 

bhitsl sbranch if primary bank 

sety 

#ESAO stry to clear video screen 

"6 

10S PACE-2 ,v 

LOSPACK+6,y 

clrsts 

TEXT 

TXTPAGE] 

S400 ,v 

SSO0,y 

S600 ,y 

$700,¥ 

elrs 
;test for switch teste Failure 

BADSWTCH ;branch if it was a switch 

#3 

badmain sbranch if ZP ok 

#5 

{SAA smark aux report with an asterisks 

badprim 

screen-8 

rmess,y 


screen-/,y 


badprim smessage is either "RAM" or "RAM ZP" 
#510 sprint bits 

a 

#558 sbits are printed as ascii 0 or } 


a 
screen-2,y 


bbits2 

hangx shang forever and ever 
#2 

smeSS ,Y 

bswtch2 sbranch if MMU in error 


smesst+3,y ;else indicate JOU error 
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C72E:99 B8 O5 193 bswtch2 sta screen,y 


C731 :88 194 dey 

C732:10 F2 C726 195 bpl bswtchl sprint "MMU" or “IOU" 

C734:30 FE C734 196 hangpy bmi hangy sbranch forever 

C736:A0 Ol 198 SWCHTST ldy #MMUIDX 

C738:A9 7F 199 swtsctl Ilda #S7F 

C73A:6A 200 swtst2 ror a sset switches of the ILOU/MMU to match Accumulator 
C73B:BE B9 C7 201 ldx SWTBLO,y 

C73E:FO OF C74F 202 beq swtst4 sbranch if done setting switches 
C740:90 03 C745 203 bec swtst3 ;branch if setting switch to O-state 
C742:BE C9 C7 204 ldx SWTBLI1,y ;else get index to set switch to 1 
C745:9D FF BF 205 swtst3 sta IOSPACE-1,x ;set switch 

C748:C8 206 iny 

C749:DO EF C73A 207 bne swtst2 ;branch always taken... 

C74B: 208 * 

C74B:AE 30 CO 209 click ldx $C030 

C74E:2A 210 rol a 

C74F:88 211 swest4 dey 

C750:BE D9 C7 212 ldx RSWTBL,y j;now verify the settings just made 
C753:FO 13 C768 213 beq swtst6 ;branch if done this pass 

C755:30 F4 C74B 214 bmi click sbranch if this switch no to be verified. 
C757:2A 215 rol a 

C758:90 07 C761 216 bec swtst5 

C75A:1E 00 CO 217 asl IOSPACE,x 

C75D:90 17 C776 218 bec swerr 

C75F:BO EE C74F 219 bes swtst4 ;branch always 

C761:1E 00 CO 220 swtst5 asl  IOSPACE,x 

C764:B0 10 C776 221 bes swerr 

C766:90 E?7 C74F 222 bec swtst4 ;branch always 

C768: 223 * 

C768:2A 224 swtst6 rol a srestore original value 

C769 :C8 225 iny ; and IOU/MMU index 

C76A:38 226 sec 

C76B:E9 O1 227 sbc #1 stry next pattern 

C76D:BO CB C73A 228 bes swtst2 

C76F:88 229 dey ;was MMU just tested? 

C770:DO OB C77D 230 bne BIGLOOP sbranch if IOU was just tested 
C772:A0 09 231 ldy #IOUIDX selse, go test IOU. 

C774:D0 C2 C738 232 bne swtstl sbranch always taken... 

C776: 233 % 

C776:A2 00 234 swerr ldx #0 sindicate switch error 

C778:CO OA 235 cpy #IOUIDX+1 ;set carry if IOU was cause 
C77A:4C D7 C6 236 jmp bbitsl 

C77D:46 80 237 BIGLOOP lsr $80 

C77F:DO BS C736 0 «6238 bne SWCHTST 

C781:A9 AO 239 blp2 lda_ #SA0 

C783:A0 00 240 ldy #0 

C785:99 00 04 241 blp3 sta $400,y ;clear screen for success message 
C788:99 00 O05 242 sta $500,y 

C78B:99 00 06 243 sta $600,y 

C78E:99 00 07 244 sta $700,y 

C791:C8 245 iny 
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C792:D0 Fl C785 246 bne blp3 


C794:AD 61 CO 247 bhlp4 LDA = $C061 steset for both Open and Closed Apple 
C797:2D 62 CO 248 AND SC062 ; pressed 

C79A:0A 249 asl a sput result in carry 

C79B:F6 FF 250 INC SFF 

C79D:A5 FF 251 EDA SEF 

C79F:90 03 C7A4& 252 bec dquit 

C7AL:4C 00 C6 253 imp DIAGS 

C7A4: 254 * 

C7A4:AD 51 CO 255 dquit Ida TEXT ;puc success message on the screen 
C7A7:A0 08 256 ldy #8 

C7A9:B9 F6 C7 257 sue2 Ida success,y 

C7AC:399 B8& OS 258 sta SCREEN,y 

C7 AF 288 259 dey 

C7BO:10 F? C7A9 260 bplL suc2 

C7B2:30 EO C794 261 bmi ss bl p4 sloop forever 

C7B4: 262 % 

C7 B4: C7B4 263 setv equ * 


C7B4:53 43 2B 29 264 nthl  dfb 83,67,43,41,7 

C7B9:00 89 31.93 265 swtbl0 afb $00,$89,$31,$03,$05,S09,S0b,$01 ,$00,$83,$51,$53,$55,557,50F, Son 
C7C9:00 81 31 04 266 swtbll d£b $00,$81,$31 ,$04,806,S0A,S0C,S02 ,S00,584,$52,$54,556,$58,$10, SOE 
C7D9:00 11 FF 13. 267 rswtbl dfh SOM,S11,SFF,813,S14,$16,$17,$18,$90,$12,S1A,SIB,SIC,SID,SIE, SIF,S00 
C7EA: 268 MSB ON 

C7EA:bD2 Cl CD AO 269 rmess asc "RAM Zp" 

C7FO:CD CD DS C9 270 smess asc “MMULOU" 


C7F6:D3 FY F3 F4 272 success asc “System OK" 

C7FF: C7FF 273 zzzend equ * 

C7 FF: ez INCLUDE C8SPACE 

CIFF: O00] | DS C8ORG-* ,0 3;pad to C800 

C800: 2 ie 

C800: 3°* This entry point is only used by Pascal 1.9 

C3800: 4 * 

C800:4C BO CY 5 IMP PINITL.O 3PASCAL 1.9 INIT 

C803: 6b * 

C803: 7 * BASIC initialization: 

C803: 8 * 

C803: 9 * This is called by the SC3 space only after a PR#¥3 or 
C803% 10 * the equivalent (a JSR $C3UN). 

C803: ij * 

C803: 12 * It causes a copy of the SF8 ROM to be placed in the 
C803: 13 * language card if the language card is switched in and 
C803: 14 * the ID byte doesn't match. It sets up all the 

C803: 15 * screenhole variables to support its operation. I[f the 
C803: lo * 80 column card is detected, it sers things up for 80 column 
C803: 17 * operation, else 49 column operation. Then it clears the 
C803: 18 * screen and prints the character that was in the accumulator 
C803: 19 * upon entry. 

C803: 20) ® 

C803: C803 21 BASTCINIT FOU * 

C803:20 F4 CE 22 JSR COPYROM vit bOI a< Copy. te Ca- wt 

C806:20 2A C8 23 JSR C3HOOKS ;out=$C307, in=SC305 


C809:20 2E Ci) 24 JSR bd4N sset full 40-col window 
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C80C 


C80E: 


: A9 
8D 


C811: 
C8ll: 
C811: 


C811 


C8L4: 
C816: 
C818: 


C81B 


:20 
DO 
06 
8) 
:8D 


C8l1E: 
C8l1E: 
CBI1E: 
CBIE: 


C81E: 


C821 
C824 
C827 


8D 
220 


7 AC 


s4C 


C82A: 


C82A: 
785 


C82C 
C82E 


C830; 


A9 


:A9 
R5 


C832: 
C832: 
C832: 


C832 
C834 


C836: 


C838 


C83A: 


:A9 


85 
AY 
785 
69 


C83B: 


C83B: 
C83D: 
C83F: 


C841 


C844: 
C846: 


C849 


E6 
DO 
E6 
:AD 
19 
8D 
760 


C84A: 
CB4A: 
CB4A: 
C84A: 
C84A: 
C84A: 


C84D 


C84D: 


C84N: 


01 
FB 


90 
08 
Zi 
0} 
OD 


OF 
90 
7B 
7E 


Q7 
36 
C3 
37 


05 
38 
C3 
39 


4E 
02 
4F 
O00 
FS 
10 


04 


CA 
C81LE 


co 
cO 


C81E 
GO 
CC 
05 
c8& 


C841 


co 
C83B 


0003 
0000 


:4C 50 C3 
C850: 
C850: 
C850: 
C850: 
C850: 


LDA #M.MOUSE ;init with mouse text off 
STA MODE ;Set BASIC video mode 


* IS THERE A CARD? 
k 


JSR TESTCARD ;SEE IF CARD PLUGGED IN 
BNE CLEARIT ;=>IT'S 40 
ASL WNDWDTH ;5ET 80-COL WINDOW 
STA SET80COL ;ENABLE 80 STORE 
STA SET8OVID 3; AND 80 VIDEO 
x 


* HOME & CLEAR: 
* 
CLEARIT EQU * 
STA SETALTCHAR ;SET NORM/INV LCASE 


JSR X.FF ;sCLEAR TT 
LDY OURCH ;set up cursor for store 
JMP  KPRINT salways print a character 


* 


C3HOOKS LDA #>BASICOUT ;set output hook first 
STA CSWL 
LDA #<CNOO 
STA CSWH 

x 


* C3IN is called by IN#0 if CSWH = #SC3 
* 


C3IN LDA #>BASICIN ;set input hook 


STA KSWL 
LDA #<CNQO 
STA KSWH 
RTS sexit with A=SC3 for IN#O stuff 
* 
GETKEY INC RNDL ;BUMP RANDOM SEED 
BNE GETK2 
INC RNDH 
GETK2 LDA KBD sKEY PRESS? 
BPL GETKEY 7=>NOPE 
STA KBDSTRB ;CLEAR STROBE 
RTS 
x 
TTETITITTIT CLT LLL LLL LuLu 


* 


* PASCAL 1.0 INPUT HOOK: 
k 
Ds  CB8ORG+S4D-*,0 ;pad to 1.0 hooks 
[IFNE *-C80RG-S4D ;ERR IF WRONG ADDR 
FAIL 2,'C84D HOOK ALIGNMENT' 
FIN 
JMP JPREAD 7=>GO TO STANDARD READ 
TTT TTI TTT TIT TELE LECCE LLL e LLL LeeLee 
x 


* CSETUP compensates for everything that the user 
* can do to change the cursor status: poke CV, CH, 
* OURCH, WNDWDTH. It updates the video firmware's 
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C850: 
c850: 
C850: 
c850: 
c850: 
:8D 
:A4 
CC 
:FO 


C852 
C855 
C857 
C85A 


C85C: 
C85F: 
218 
>ED 
C865: 


C861 
C862 


C867 


C86C 
C86F 


C874 
C875 
C878 


C879: 
C87A: 
:48 
C6ICs 
C87C: 
0000: 
C87E: 
C87E: 
C87E: 
C874: 
C87FE: 
CB7E: 
C87E: 
20 
: AD 
:c9 
C886: 


C87B 


Care 
C881 
C884 


hs 


A5 


8C 
A5 


BO 


> AQ 
C869: 
> AC 
260 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C870: 
C872: 
C8is: 
C874: 
:38 
78D 
:98 


8C 


A4 
18 
BO 


48 
BA 


BO 


DO 


25 
FB 
24 
7B 
03 
7B 
2: 


7B 
O5 
00 
7B 
7B 


35 


re 


5E 


50 
7B 
8D 
18 


05 
04 


05 
O05 


Q5 
O05 


06 


Ck 
06 


C85F 


C86C 


C873 
C874 


C87C 
C8DC 
B000 


C8A0 


100 
101 
1O2 
103 
104 
195 
Lo6 
107 
108 
109 
110 
i 
L112 
113 
114 
115 
[16 
ew: 
118 
119 
120 


* versions of these values for its own use. 
* COPY USER'S CURSOR IF IT DIFFERS FROM 
* WHAT WE LAST PUT THERE: 
x 
CSETUP LDA CY ;set up OURCY 
STA OURCY 
LDY CH ‘GET IT 
CPY OLDCH ;IS IT THE SAME? 
BEO’ | “CS2 3=>YES, USE OUR OWN 
STY OURCH ;update our cursor 
CS2 LDA WNDWDTH s;cursor horizontal must not 
CLC sbe greater than window width 
SBC OURCH sif it is, then put cursor 
BCS CS3 sat left edge of window 
LOY #0 
STY OURCH 
Cs3 LDY OURCH sexit with Y = CH 
RTS 
* 
* BIN and BOUT are used when characters are 
* input and output by the SF8 ROM while 80VID 
* is on. Thev cannot use the $C3 entry points 
* because that switches in the $C8 space, causing 
* possible conflict with other S$C8& users. 
* These routines are only called by the SCIOQ-SC2FF space. 
x 
* These entry points will only work if the card was 
* firse initialized using a PR#3. 80 columns will not 
* work simply by turning on the 80VID flag. 
x 
BOUT LOY SAVY1 ;load Y stuffed hy SF8 ROM 
CLC ;Signal an output 
BCS. * ;skip SEC 
ORG *~1 
BIN SEC ;signal an input 
STA CHAR ;save the char 
TYA ;save Y 
PHA 
TXA ;save X 
PHA 
C8BASIC EQU * ;BASLC IN/OUT 


TEST FOU 0 


+ + 


* 
x 


BPRINT -JSR. CSETUP 


BCS BINPUT ;=>input a character 
;REAL VERSION 

LST ON,A,V 

INCLUDE BPRINT 


This is the place where characters printed using the 
CSW hook are actually printed (or executed if thev are 


control characters). 


,seCup user cursor 


LDA CHAR ;GET CHARACTER 
CMP #S$8D ts. Of, C7 R? 
BNE NOWAILT ;=>-don't wait, OURCH ok 
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C888: AE 
C88B:10 
C88D:F0 
C88F:DO 
C891:2C 
C894:AE 
C897:10 
C899 :E0O 
C89B: FO 
C89D:2C 
C8BA0 :29 
C8A2:C9 
C8A4 : BO 
C8A6:20 
CBA9:4C 
CBAC: 
C8AC: 
CBAC: 
C8AC: 
C8AC: AD 
C8AF:20 
C8B2: 
C8B2: 
C8B2: 
C8B2:C8 
C8B3:8C 
C8B6:C4 
C8B8: 
C8BA:20 
C8BD: 
C8BD: 
C8BD: 
C8BD: 
C8BD:AD 
c8c0:29 
C8C2:8D 
C8C5:AD 
C8C8:2C 
C8CB:10 
C8CD:A9 
C8CF:85 
C8D1:8D 
C8D4 :68 
C8D5:AA 
C8D6:68 
C8D7:A8 
C8D8:AD 
C8DB:60 
C8: 
C38De: 
C8DC: 
C8DC: 
C8DC: 


C8DC:A4 


00 
13 
93 
OF 
10 
00 
FB 
83 
03 
10 
7F 
20 
06 
D2 
BD 


7B 
348 


7B 
21 
03 
51 


FB 
F? 
FB 
7B 
1F 
2 
00 
24 
7B 


7B 


24 


co 
C8A0 


C8A0 
co 
co 
C894 


C8A0 
co 


C8AC 
CA 
C8 


C8AC 
06 
CE 


OS 


C8BnN 
CB 


04 
O4 
O5 


ca 
C8CF 


O04 


06 


10 
11 
IZ 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 


y 
“ 


26 
27 
28 
29 
30 
31 
32 
33 
34 
35 


37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
4y 
50 


52 
53 
54 
55 
56 
57 


LW & Ww bh 


KBDWAIT 


NOWAIT 


* 


* NOT A 
k 


BPNCTL 


LDX 
BPL 
CPX 
BNE 
BIT 
LDX 
BPL 
CPX 
BEQ 
BiT 
AND 
CMP 
BCS 
JSR 
JMP 


CTL 
EQU 


LDA 
JSR 


CHAR. 


KBD 
NOWAIT 
£93 
NOWAIT 
KBDSTRB 
KBD 
KBDWAIT 
$83 
NOWAILT 
KBDSTRB 
#S7F 
#$20 
BPNCTL 


CTLCHARO 


CTLON 


k 
CHAR 


STORCHAR 


;1S KEY PRESSED? 


; NO 
31S IT CTL-S? 
;NO, IGNORE IT 


;CLEAR STROBE 
;WAIT FOR NEXT KEYPRESS 


;I1F CTL-C, LEAVE IT 

: IN THE KBD BUFFER 
‘CLEAR OTHER CHARACTER 
;drop possible hi bit 
IS IT CONTROL CHAR? 
;=>NOPE 

sexecute CTL if M.CTL ok 
;=Penable ctl chrs 


PRINT IT. 


sget char (all 8 bits) 
;and display it 


* BUMP THE CURSOR HORIZONTAL: 


* 


INY 
STY 
CPY 
BCC 
JSR 


OURCH 
WNDWDTH 
CTLON 
X.CR 


;bump it 

;are we past the 

; end of the Line? 
s=>NO, NO PROBLEM 
;sYES, DO C/R 


* M.CTL is set by RDCHAR and cleared here, after each 
* character is displayed. 


* 
CTLON 


BIORET 


SETALL 


GETREGS 


+ + + 


LDA 
AND 
STA 
LDA 
BIT 
BPL 
LDA 
STA 
STA 
PLA 
TAX 
PLA 
TAY 
LDA 
RTS 


INCLUDE 


MODE 


MODE 
OURCH 


RD80VIN 


SETALL 
#0 

CH 
OLDCH 


CHAR 


BINPUT 


;enable printing of control chars 


;get newest cursor position 
; IN 80-MODE? 

3=>no, set other cursors 
;pin CH to 0 for 80 columns 


sREMEMBER THE SETTING 
> RESTORE 


-X AND Y 


;RETURN TO BASIC 


BASIC input entry point called by entry point in the 
$C3 space. 


This is the way things normally happen. 


BINPUT LDY CH 
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C8DE:AD 7B 046 6 LDA CHAR 


CRE1:91 28 7 STA (BASL),Y 

CBE3:20 50D C8 8 JSR - -CSETIIP ‘pet newest cursor 

C8E6:20 26 CE Y BLINPUP JSR INVERT sinvert that char 

C8E9:20 3B C8 po JSR GETKEY :GET A KEY 

C8EC: 8D 7B 06 I STA CHAR “SAVE IT 

CBEF?ZO. 26 GE 12 JSR [INVERSE sREMOVE CURSOR 

C8F2:A8 Ly PAY spreserve acc. 

Cars: 14 * 

C8F3: 15 * On pure input, an uninterpreted character code should 
C8F3: lo * be returned. Lf M.CTL is set, however, escape functions 
C8F3: [? * are enabled, and CTL-U causes the character under the 
C8F3: 18 * cursor to he picked up from the screen. 

C8F3: 19 * M.CTI is set whenever a character is requested using 
C8F3: 20 * RDCHAR in the SF&8& ROM. 

C8F3; 2] * 

C8F3:AD FB 04 22 LDA MODE ;is escape mode enabled? 
C8F6:29 08 23 AND #M4.CTL 

C8F8:FO CB C8C5 24 BEQ BIORET ;=>no,return 

C8FA:CO 8D 25 CPY #S8D swas it a CR 

C8FC:DO 08 C906 26 BNE NOTACR ;=>nope, not a CR 

C&8FE:AD FB 04 27 LDA MODE 

C901:29 F? 28 AND #255=M.CTL ;selse end of line... 
C903:8D FB 04 29 STA MODE ; disable escape 

C906: C906 30 NOTACR FOU * 

C90N6:CO OB ot CPY #S9B *ERCAPE “KEY? 

CINK FO 11 COLB 32 BEQ ESCAPING 3= YES IF TS 

COOA: 33% 

CIDA: 34 * Not an escape sequence. Check for control-u. 
CODA: ce a 

CINA:CO 95 36 CPY #895 “iq it eontrol—-l? 

c90C:pDO B? C8c5 a7 BNE BLORET sno, return to caller 
CIOKE:AC 7B OS 38 LDY OURCH szget horizontal position 
C9t1:20 44 Ck 49 JSR PICK sand pick up the char 
C914:09 BO 4) ORA #S80 salways pick as normal 
C916:8D 7B 06 4| STA CHAR ;save keystroke 

C919:DO AA c8CcS 4? BNE BLORET >=>Calways) return to caller 
CYLB: 43 % 

C91B: 44 * Start an escape sequence. It the next character 
CILB: 45 * pressed is one of the following, it is executed. 
CYLB: 46 * Otherwise it is ignored. 

C9O1B: 47 * 

C9OLB: 48 * @ - home & clear 

C91B: 49 * E - clear to end of line 

C9YI1B: he F - clear to end of screen 

C9IB: 51 * I - move cursor up 

C91B: 52 * J - move cursor left 

C9OIB: 53 * K - move cursor right 

C9OI1B: 54 * M - move cursor down 

C9O1B: 57 * 4 - enter 40 column mode 

COB: 58 * 8 - enter 80 column mode 

C9I1B: 59 * CTL-D- disable the printing of control characters 
COLB: 60 * CTL-E- enable the printing of control characters 
COIB: hl * CTL-Q- quit (PR#O/IN#O) 


TH) Appendix Bo Apple Te Monitor ROM Listing 


C9OLB: 62 * The four arrow keys (as IJKM) 

C9O1B: 63 * 

C9O1B: 64 MSB OFF 

C91R: C91B 65 ESCAPING EQU * 

C91B:20 Bl CE 66 JSR  ESCON ;ESCAPE CURSOR ON 

C91E:20 3B C8 67 JSR GETKEY *GET ESCAPE FUNCTION 
C921:20 C& CE 68 JSR ESCOFF ;REPLACE ORIGINAL CHARACTER 
C924220''14: CE 69 JSR  UPSHFT s;upshift the char 

C927:29 7F 70 AND #S7F ;DROP HI BIT 

C929:A0 10 71 LDY #ESCNUM-1 ;COUNT/ INDEX 

C92B:D9 7C CY 72. -ESC2 CMP ESCTAB,Y ;1S Tt A VALID ESCAPE? 
C92E:FO 05 C935 73 BEQ ESC3 ;=>YES 

C930 388 74 DEY 

C931:10 F8 C97B 75 BPL ESC2 TRY. EM AbLiwa-s 

C933:30 OF C944 76 BMI ESCSPEC 3=>MAYBFE IT'S A SPECIAL ONE 
C935: 77 * 

C935: C935 78 ESC3 EQU * 

C935:B9 6B C9 79 LDA ESCCHAR,Y ;GET CHAR TO "PRINT" 
C938:29 7F 80 AND #S7F ‘DROP HI KIT (FLAG) 

C93A:20 D6 CA 81 JSR CTLCHAP TEAEGUIE. UF 

C93D:B9 6B C9 R? LDA ESCCHAR,Y ;GET FLAG 

C940:30 bY C9I1RB 83 BMI ESCAPING ;=>STAY IN ESCAPE MODE 
C942:10 A2 C8E6 84 BPL, B.{NPUT ;=>QUIT ESCAPE MODE 

C944; 35 * 

C944: C944 86 ESCSPEC EQU * 

C944:A8 87 TAY ;put char here 

C945:AD FB 04 88 LDA MONE 3Sso we can put this here 
C948:C0 11 89 CPY #Si1 ;was it Quit? 

C94A:DO OB C957 30 BNE ESCSPI1 3;=>no 

C94C:20 4D CD a) JSR  X.NAK ;do the quitting stuff 
CO4EF:A9 98 92 LDA #$98 smake it look Like 

C951:8D 7B 06 93 STA CHAR ;CTL-X was pressed 

C954:4C C5 C8 94 JMP BIORET s=>quit the card forever 
C957: 95 * 

C957:CO 05 96 ESCSPL CPY #5805 swas it CTL-E for enable 
C959:D0O 08 C963 97 BNE ESCSP4 ;=>no 

C95B:29 DF 98 AND #255-M.CTL2 ;yes, enable ctl chars 
C95D:8D FB 04 99 ESCSP2 STA MODE ssave new mode 

C960:4C E6 C8 190 ESCSP3  JMP B.INPUT 3=> exit escape mode 

C963: 101 * 

C963:c0 04 102 FSCSP4& CPY #S04 ;was it CTL-D for disable 
C965:DO FI C960 «(103 BNE ESCSP3 ;=>no, exit escape mode 
C967:09 20 104 ORA #M.CTL2 sdisable ctl chars 

C969:D0 F2 C95D 105 BNE ESCSP2 ;=> exit escape mode 

C9I6B: 106 * 

C96B: 107 * This table contains the control characters which, 
C9O6B: 108 * when executed, carry out the escape functions. If 
C96B: 109 * the high hit of the character is set, it means that 
C96B: 110 * escape mode should not be exited after execution of 
C96B: 111 * the character. 

CI6B: 112 * 

C96B: C96B 113 ESCCHAR FQU * 

C96B:0C 114 DFB $0C 3@: FORMFEED 

C9I6BC:1C 115 DFB $1C 3A: FS 
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C96D 
C9I6E 


C97) 
C972 
C973 
C974 
C975 


C978 
C979 


CO7A: 
C97B: 
C97C: 
Cc97C: 
C97C: 
740 


C97C 


c97N: 
242 
143 


C97E 
C97F 


C980: 
245 
246 
2:49 
4A 
:4B 
241 
234 
C988: 


C981 
C982 
C983 
C984 
C985 
0986 
C987 


C989 
C9IBA 


C9O8B: 
C9BC: 
C98D: 
C98BD: 
C98D: 
C98D: 
c98D: 
CY8D: 
C990: 
:A9 
:8D 
781 


C992 
C994 
C997 


C9O9A: 


cy9D 
CIAD 


CYA3: 
C9A4: 
C9A4: 
C9A4: 
C9A4: 
7CA 


C9A4 


-~7 
Ly 


:08 
20A 
C96F: 
C970: 
:0B 
:9F 
788 
:9C 
8A 
C976: 
C977: 
788 
8A 


LF 
1D 


ll 


OF 
9C 


4) 


44 


38 


298 
SOA 


OB 
15 


ZG 
30 


8D 


:8D 
:CD 


60 


13 
1] 
BE; 
U5 
03 
OO 
00 
00 


CB 


Cc97C 


Ob | 


CO 
C9A3 


co 
co 
OC 
08 
OC 


cD CY 


$08 
SOA 
SEF 
SID 
SOB 
S1F+S$80 
$08+S80 
$1C+S80 
SOA+S80 
$11 
Sl2 
$08+S80 
SOA+S 80 
S$1F+S80 
$1C+S$80 


OFF 
* 
ra? 
tat 
‘BR? 
"c? 
th? 
the? 
tel 
ry 
ryt 
1K? 
™! 
4? 
tat 
$OB 
SOA 
SOB 
S15 
*-ESCTAB 
ON 


BS 

LF 

US 

GS 

VT 

: US (STAY ESC) 

:J: BS (STAY ESC) 
: FS (STAY ESC) 


- we 


c we 


Key moO w 


3K: 

-M: LF (STAY ESC) 
34 :DCl 

% peE2 

3<-:BS (STAY ESC) 
;DN: LF (STAY ESC) 
:UP:US (STAY ESC) 
:->:FS CSTAY ESC) 


shigh bit already masked 


;HANDLE OLD ESCAPES 


;LEFT ARROW 
;DOWN ARROW 
; UP ARROW 
;RITE ARROW 


154 * Tack on diag 128K test here 


116 DFB 
117 DFB 
118 DFB 
119 DFB 
120 DFB 
121 DFB 
122 DFB 
123 DFR 
124 DFB 
125 DFB 
126 DFB 
127 DFB 
128 DFB 
129 DFB 
130 DFB 
1 Ss 

132 MSB 
133 ESCTAB EQU 
134 ASC 
1 ASC 
136 ASC 
137 ASC 
138 ASC 
139 ASC 
140 ASC 
141 ASC 
142 ASC 
143 ASC 
144 ASC 
145 ASC 
146 ASC 
147 DFB 
148 DFB 
149 DFB 
150 DFR 
151 ESCNUM EOU 
PS2 MSB 
153 * 

155 * 

156 STAUX BIT 
Lov BMI 
158 LDA 
159 STA 
160 STA 
161 STA 
162 STA 
163 CMP 


1h4 XSTAUX RIS 
boc. 


RDRAMRD 
XSTAUX 
#SEE 
WRCARDRAM 
RDCARDRAM 
$c00 

$800 

$Cc00 


saux done yet? 

s=>yes, exit 

;wet test pattern 
swrite AUX RAM 

;read AUX RAM 

;test this byte 

sand this is IK off 
shas SCOM heen updated? 
scheck in main diags. 


166 * ESCOUT used by ESCFIX in SCl page 


lo7 * 
168 MSB 
169 ESCOUT ASC 


ON 
"JKML' 


;The arrows 
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C9AB: 170 MSB OFF 
C9IAB: 26 INCLUDE PASCAL 


COAB: | I I KI KI KK RIK RII IKARIA RIK AKER IAI A 
C9A8: 2 * PASCAL 1.0 OUTPUT HOOK: 
COAB: ZK KR RRR ERR ERK RRR RKKRERRERRERE RR 
C9IAB: 0002 4 DS C8ORG+$ 1] AA-* ,0 
C9IAA: 0000 5 IFNE *-C8ORG~S1LAA 

S 6 FAIL 2,'C9AA HOOK ALIGNMENT’ 
C9AA: 7 FIN 
C9AA:AD 7B 06 8 LDA CHAR ;GET OUTPUT CHARACTER 
CIAD:4C 56 C3 9 JMP JPWRITE 3=>USE STANDARD WRITE 
COBO: LQ RRR KR RRR KKK RRR RRERERERERKER KK RK IK 
C9BO: ll * 
CORO: 12 KERR KKK RERRERKEKKKRK ARK KKK KKK KKK RRR 
C9BO: 13 * PASCAL INITIALIZATION: 
C9BO: 14 * Disable printing of mouse text 
COBO: [5 RRR RRR RRR KR ERK EKER REAR AKE RA AK IK 
C9BO: C9BO 16 PINIT1.O EOU * 
C9BO:A9 83 17 LDA #M.PASCAL+M. PASI .0+M.MOUSE 
C9B2:DO 02 C9IB6 18 BNF. PINIT2 :=>always 
C9OB4: C9B4 19 PINIT EQU * 
C9B4:A9 81 20 LDA #M.PASCAL+M.MOUSE ;SAY WE'RE 
C9B6: 21 * 
C9OB6: C9IB6 22 PINIT2 FOU * 

C9B6:48 23 PHA ;save version ID 
C9B7: 24 * 
C9B7: 25 * SEE IF THE CARD'S PLUGGED IW: 
C9IB?7: 26 * 
C9B7:20 90 CA 27 JSR TESTCARD ;15 IT THERE? 
CIBA: FO 04 c9cO 28 BEQ PIGOOD s=>YES 
COBC :68 29 PLA sdiscard ID byte 
COBD:A2 09 30 LDX #9 ; lLORESULT='NO DEVICE’ 
C9OBF:60 31 RTS 
c9CcOo: 32 % 
c9C0: c9CO 33 PIGOOD EQU * 
C9C0 :68 34 PLA ;zZet version ID 
C9C1:8D FB 04 35 STA MODE $ and save it 
c9C4:8EB 01 CO 36 STA SET80COL ;ENABLE 80 STORE 
C9C7:8D OD CO 37 STA SET80VID ; AND 80 VIDEO 
C9CA:8D OF CO 38 STA SETALTCHAR ;NORM+INV LCASF 
C9CN:20 D4 CE 39 JSR PSETUP ;set window and cursor 
C9D0:20 90 CC 40 JSR X.FF ;HOME & CLEAR IT 
C9D3:4C 1F CA 41 JMP DOBASL ;fix OLDBASL/H, display cursor, exit 
C9ID6: LQ KRERKRKKRKER KK EKRERRERREREREREEARAINK KK KK IK 
C9DN6: 43 * PASCAL INPUT: 
C9D6: 44 * 
C9D6: 45 * Character always returned with high bit clear. 
C9D6: 46 * 

CON6: 7] RRKRKKEREKRKKKRKKKEKERERRERKEERA KKK KKK KK 
C9D6: C9D6 48 PREAD EQU * 

C9D6:20 D4 CE 49 JSR PSFTUP ;SETUP Z2P STUFF 
C9D9:20 3B C8 50 JSR GETKEY sGET A KEYSTROKE 
C9DC:29 7F 51 AND #S7F ;DROP HI BIT 

CIDE:38D 7B 06 32 STA CHAR ;SAVE THE CHAR 
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C91 


C9E3: 
:29 


CIES 


CIFB: 
:A2 
C9EC: 
CIEC: 
C9FC: 
COEF: 
C9FO: 
C9OFO: 
C9OFO: 
CYFO: 
C9OFO: 
C9OFO: 
C9FO: 
CYFO: 
:AA 


C9RA 


COF2 


CYF3: 
COF6: 
CIFS: 
COFB: 
CIFD: 
CYFE: 
:FO 
CAN}: 
124 


CAO] 


CAN6 


CAOB: 
209 


CADA 


CAOC: 
:C8 


CAOF 


CALO: 


CA13 
CAL5 
CAl?7 


CAIC 


CALF: 
281) 
CA24; 
CA26: 
CA29: 
:A2 


CA21 


CALC 


CA2E: 
CA2ZF: 
CA2F: 
CA2F: 
CA2F: 
BA 
238 


CA32 
CA33 


CA34: 
2G 


CA36 


CA39: 
CAB: 


>A2 


AD 


FO 


AD 
60 


29 
20 
A9 
ZC 
DO 
BA 
2 
AC 
10 
20 


8C 


:C4 
> 91) 
:A9 
CAL9: 
220 


8D 
A5 
AS 
8D 
20 


60 


20 


Eg 


30 


00 
FB 
02 
02 
C3 


7B 


7F 


D4 
OR 
FB 
32 


2E 
50 
7B 
32 
02 
80 
70 


7B 
21 
O8 
OO 
7B 
D8 
28 
7B 
29 
FB 
lF 
O00 


20 
FB 
30) 


04 


CIEC 


CIRC 
06 


C9IFO 


GE 


04 


CA2F 


CA53 


O5 


CA0NC 


Ch 


O5 


CALF 


O5 
CB 


(7 
CE 


CF. 


Oh 
CA6B 


53 
54 
55 
56 
oF 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
15 
76 
77 
78 
79 
80 
81 
82 
83 
B4 
R5 
86 
87 
8B 
9 
90 
91 
92 
93 
94 
95 
9b 
97 
98 
99 
Loa 
10] 
102 
103 
104 
105 
106 


LDx #0 
LDA MODF 
AND #M.PAS!1.9 
BEQ PREADRET2 
LDX #<CNOO 

* 

PREADRET2 EQU * 


LDA 
RTS 


+ + 


Note: 


CHAR 


PASCAL OUTPUT: 
to be executed, 
* their high bits cleared. 


; IORESULT='GOOD' 
;ARE WE IN 1.0-MODE? 


3=>NOPF. 
sYES, RETURN CN IN X 


“RESTORE CHAR 


control characters must have 
All other characters are 


* displayed regardless of their high hits. 


* 


PWRITE EQU 
AND 
TAX 
JSR 
LDA 
BIT 
BNE 
TXA 
BIT 
BEQ 
LDY 
BIT 
BPL 
ORA 
JSR 
INY 
SITY 
CPY 
BCC 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 


PWRI 


DOBASL 


x 
#S7F 


PSETUP 
#M.GOXY 
MODE 
GETX 


PRES 
PCTL 
OURCH 
TNVFLG 
PWR] 
#380 
STORLT 


OURCH 
WNDWDTH 
DOBASL 
£0 
OIWRCH 
X.LF 
BASL 


OLDBASL 


BASH 
OLDBASH 


PWRITERET JSR PASINV 


PRET 
PRTS 
x 


LAX 
RTS 


* HANDLE GOTOXY STUFF: 


k 

GETX JSR 
TXA 
SEC 
SBC 
BLT 
BMI 

* 


#S0 


PAS INV 


#32 
XCOORD 
PSETX 


sclear high bits 

ssave character 

;SETUP ZP STUFF, don't set ROM 
:;ARE WE DOING GOTOXY? 


;=>Doing X or Y? 

snow check for control char 
sis it control? 

;=-yes, do control 

;get horizontal position 
scheck for inverse 
sinverse, fo store it 


snow store it (erasing cursor) 
> INC CH 


<do carriage return 


sand linefeed 
;save BASL for pascal 


sdisplay new cursor 
sreturn with no error 


sturn of & cursor 
spet character 


;MAKE BINARY 
sdoing X? 
j=>yes, set it 
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CA3B: 107 * Set Y and do the GOTOXY 


CA3B: 108 * 

CA3B:8D FB U5 109 GETY STA OURCV 

CA3E:85 25 LLO STA CV 

CA40:20 BA CA 111 JSR BASCALC scale base addr 

CA43:AD FB 06 112 LDA XCOORD 

CA46:8D 7B 05 113 STA OURCH ;set cursor horizontal 
CA49:A9 F7 114 LDA #255-M.GOXY ;turn off gotoxy 

CASB:2D FB 04 115 AND MODE 

CASE:8D FB 04 116 STA MODE 

CA51:N0 CC CALF 117 BNE DOBASL 7=>DONE (ALWAYS TAKEN) 
CA53: 118 * 

CA53:20 IF CE 119 PCTL JSR  PASINV sturn off cursor 

CA56:8A 120 TXA sget char 

CA57:C9 ITF 121 CMP #SI1E ;is it gotoXY? 

CA59:FO 06 CA61l 122 BEQ STARTXY ;=>yes, start it up 

CA5SB:20 D6 CA eae JSR CTLCHAR ;EXECUTE IT LF POSSTBLE 
CA5E:4C 1F CA 124 JMP DOBASL s=>Dupdate BASL/H, cursor, exit 
CA6I: 125 * 

CA6L: 126 * START THE GOTOXY SKQUENCE: 

CA61: 127 * 

CA61: CA6] 128 STARTXY EOI * 

CA61:A9 08 129 LDA #M.GOXY 

CA63:0D FB 04 130 ORA MODE ;turn on gotoxy 

CA66:8D FB 04 131 STA MODE 

CA69:A9 FF 132 LDA #SFF sset XCOORD to -l 

CAGB:8D FB 06 133 PSETX STA XCOORD ;set X 

CA6E:4C 29 CA 134 JMP PWRITERET ;=>display cursor and exit 
CA71: 27 INCLUDE SUBS] 

CA71: CA7 1 1 DOMN EQU * 

CA71:AA 2 TAX ;SAVE IT 

CA72:A5 2A 3 LDA BAS2L ;GET OPCODE AGAIN 

CA74&:A0 03 4 LDY #503 

CA76:EQ 8A 5 CPX #S8A 

CA78:FO OB CA85 6 BEQ MNNDX3 

CA7A:4A 7 MNNDX1 LSR A 

CA/7B:90 08 CA85 8 BCC MNNDX3 ;FORM INDEX INTO MNEMONIC TABLE 
CA7D:4A 9 LSR A 

CA7E:4A 190 MNNDX2 LSR A ; 1) 1XXX1010 => 00101XXX 
CA7F:09 20 1] ORA #820 ; 2) XXxYYYO] => 00111XXx 
CA81:88 12 DEY ; 3) XXXYYY10 => 00110XXX 
CA82:DO FA CA7E 13 BNE MNNDX2 ; 4) XXxXYY100 => 00100XXx 
CA84:C8 14 INY ; 5) XXXXxX000 => OOOXXXXX 
CA85:88 15 MNNDX3 DRY 

CA86:DO F2 CA7A 16 BNE MNNDX1 

CA88:60 17 RTS 

CA89: 18 * 

CA89: 19 * Switch in slot 3, then test for a ROM card. 
CA89: 20 * If none found, test for 80 column card, 

CA89: 21 * else return with BNE. 

CA89: Ze i® 

CA89: CA89 23 TSTROMCRD EQU * 

CA89:20 B?7 F8 24 JSR TSTROM stest for ROM card 

CA8C:DO 02 CA9I0 25 BNE TESTCARD 3;=>no ROM, check for 80 column card 
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CASE :C8B 
CASF 260 
CAYU: 
CAIN: 
CAIN: 
CAIN: 
CAYO: 
CAYO: 
CAIN: 
CAMO: 
CA9N: 
CAMN: 
CAYMN: 
CAYO:AD 
CAI320A 
CAY4:AY 
CAI6:2C 
CAIIZ3D 
CAIC 208 
CAYN: 38D 
CAAQ:AC 
CAA3 38D 
CAAB SAD 
CAAI:8C 
CAAC:28 
CAAD: BO 
CAAF:8D 
CAB2: 
CAB2:30 
CAB4:8D 
CAB?: 
CAB/7:C9 
CAB9I:60 
CABA: 
CABA: 
normal 
CABA: 
CABA: 
CABA:48 
CABB:4A 
CABC:29 
CABE:09 
CACO:85 
CAC? 168 
CAC3:29 
CAC5 390 
CAC/7:69 
CACY:85 
CACB:O0A 
CACCIOA 
CACD:05 
CACF:85 
CAD1 :60 
CAD2: 


mm 4 
if 


1c 


BR 
18 
Gl 


55 
00 
ON 
O00 
00 


)3 
54 


O3 
O00 


BS 


monitor ROM 


03 
4 


29 


18 
2 
7F 
28 


28 
28 


Ca 


ore) 
co 


Ch) 
04 
4 
14 
4 


Co 


co 


CA) 


CAB2 


CAB2 
CAB? 


CAB? 


CABA 


CACY 


26 [NY smake BNE for return 

24 RTS 

28% 

DQ RAK KKK KIRKE KKK RRR KK ERK KKK RRR RK RK RK IK 

300 * NAME 2 TESTCARD 

3) * FUNCTION: SER TF 80COL CARD PLUGGED EN 

32% ENPUT > NONE 

33°* OUTPUT os: 'BEO' LF CARD AVATLABLE 

34 x : "BNE! [TF NOT 

35 * VOLATILE: ACY 

RIK III RRR KR RRR RR AK KR KER KIKI IOC KR KK 

12% 

38 TRSTCARD EQU * 

WY LDA RDPAGE?2 sREMEMBER CORRENT VIDEO DISPLAY 
4t) ASL A ; IN THR CARRY 

ol LbA = =#S88 :USEFUL CHAR FOR TESTING 
42 BIT RbBROCOL >REMEMBER VIDEO MODE [IN 'N! 
a} STA SETHUCOL sFENABLE 80COL STORE 

44 PHP >SAVE 'N' AND 'C' FLAGS 
45 SPA CEXTPAGEHZ ;SET PAGE2 

46 LDY $0400 sGET FIRST CHAR 

4] STA  S0400 ‘SET TO: A. Ss" 

4R LDA = $0400 ‘GET LTT BACK FROM RAM 
49 STY  Su400 sRFSTORE ORIG CHAR 

50 Five ;sRESTORE 'N’ AND ‘Ch FLAGS 
S| BCS STAY2 ;SLAY [IN PAGE2 

52 STA TXTPAGE1 sRESTORE PAGE! 

53 STAY2 FQU  * 

54 BME STAY8U *=>STAY EN 80COL MODE 
55 STA CLRSOCOL TURN OFF 80COL STORE 
56 STAYSU EOU * 

37 CMP #588 sWAS CHAR VALID? 

58 RTS ;RETURN RESULT AS BEQ/ BNE 
59 * 

60 * De the 

BASCALC 

61 * 

62 BASCALC FOU * 

63 PHA 

h4 LSR OA 

65 AND #S03 

b6 ORA #SO4 

67 STA BASH 

68 PLA 

69 AND #518 

70 BCC =BSCLC2 

71 ADC #S7F 

72 BSCLC2 STA BASIL 

73 ASL A 

74 ASL A 

rae ORA BASIL 

76 STA BASIL 

7a RTS 

78 * 
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CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 
CAD2: 


CAD2 
CADS 


T2G 
:50 


CAD6: 
CADO6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 
CAD6: 


CAD6: 


CAD? 
CADA 


CADB: 


CADC 


B8 
:8D 
748 


748 


CADD: 


CADD: 


CAEO 
CAE2 


CAE4: 


CAE? 


CAES: 


AC 
CO 
790 
B9 
: FO 
50 


CAERB: 
CAEB: 


5 


CARB: 


CAERB: 


39 


CAED: 
CAED: 


CAED: 
CAFO: 


CAF3 


CAF5: 


8D 
AD 
°29 
FO 


CAF/7: 
CAF?7: 


CAF? 


CAF8: 


738 
BO 


CAFA: 


CAFA: 


AD 


CAFD: 


O06 CB 

FE CAD5 
CAD6 

7B O07 

7B 07 

O5 

13 CAF? 

B4 CB 

OE CAF? 

12 CAFD 
0000 

10 CAFD 

7B 07 

FB 04 

28 

03 CAFA 
CAF? 

09 CBO3 

7B O7 
CAFD 


79 
80 
81 
82 
83 
84 
85 
86 


88 
89 
30 
91 
92 


94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
Ph 
112 
113 
114 
{15 
116 
117 
118 
1193 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
L31 
132 


KkKKKKKKKKKRKK KA KKK KKK RRR 


* NAME : CTLCHARO 

* FUNCTION: Execute CTL char if M.CTI=0 
* INPUT : AC=CHAR 

* OUTPUT : 'BCS' if not executed 

* : "BCC' if executed 

* VOLATILE: NOTHING 

* 


CALLS >: MANY THINGS 
KKKKKRKKKRKKKKEK KK KER KEKKKEREKKRKKK KKK KKKEK 


x 
CTLCHARO BIT SEVI sset V (use M.CTL) 
BVC * ‘skip CLC 


ORG ¥*-1 
* 


KREKKEKRKEKERKKKKEERKKEEKEKEKKKKEEKKEEKRKEKE 


* NAME : CTLCHAR 

* FUNCTION: Always execute CTL char 

* INPUT : AC=CHAR 

* OUTPUT : ‘'BCS' if not executed 

* : "BCC' if ctl executed 

* VOLATILE: NOTHING 

* CALLS : MANY THINGS 
KKAKKKKKKKKKKKKAKKKAKKERAKKKKRK KKK RKKKRAKK 


* 


CTLCHAR CLV sclear V (ignore MN.CTL) 


STA TEMPL ;TEMP SAVE OF CHAR 
PHA sSAVE AC 
TYA >SAVE Y 
PHA 

x 
LDY TEMPL ;GET CHAR IN QUESTION 
cPY #S05 ;1S IT NUL..EOT? 


BCC CTLCHARX ;=>YES, NOT USED 
LDA CTUADH-5,Y ;Get high byte of address 
BEQ CTLCHARX 3;=>ctl not implemented 


BVC CTLGOO s=> CLTCHAR: always execute 
* 
DO Tho t 
BPL CTLGOO 3=>CR,BEL,LF,BS always done 
ELSE 
BMI CTLGOO ;=>CR,BEL,LF,BS always done 
FIN 
x 
STA TEMPI ;save high byte of address 
LDA MODE sif control chars 
AND #M.CTL+M.CTL2 ;are enabled 
BEQ CTLGO ;=>then go do them 


* 


CTLCHARX EQU * 
SEC ;SAY ‘NOT CTL 
BCS CILRET — ;=>DONE 
* 
CTLGO LDA TEMPI 
CTLGOO EQU * 


sget address back 
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att | 
=~) 


CAFD: 

S 
CAF): 
CAFD:09 
CAFF: 


80 


O00 


CAFF:20 07 CB 


CBO2: 
CBO2:18 
CBO3: 
CBO3:68 
CBO4:A& 
CBO5:68 
CBO6:69 
CBO?7: 
CRO? : 
CBO? :48 
CBO8: BY 
CBOB:48 
CBOC 3:60 
CBOD: 
CBO: 
CBOD: 
C BOD: AD 
CB1O:10 
CB12:29 
CBL4:8)D 
CB1L7:60 
CBL8: 
CBI8: 
CB18: 
CB18: 
CKL8:AD 
CBIB:10 
CKiD:09 
CB1F: DX) 
CB212 
CB21: 
CB21: 
CB21+% 
CK21:A9 
C823:20 
CB26:A0 
CB28:A9 
CB2A4:320 
CB2D:AD 
CB30 288 
CB31: D0 
CB33:260 
CR34: 
CK34: 
CB34:38 
CB35:48 
CB36:FY 
CB38: D0 


a2 


FB 
OS 
EF 
FB 


FB 
FA 
Lo 
F3 


4t) 
34 
CO 
OC 
34 
30 


1 
FC 


CBO 3 


CBO? 


CBI? 


04 


O4 
CBI? 


CB14 


CB36 


no TEST 
AND #S7F ;for test, hi bit clear 
ELSE 
ORA #$80 shi bit always set 
FIN 
JSR CTLXFER sEXECUTE SUBROUTINE 
* 
Ci ;SAY 'CTL CHAR EXECUTED' 
CTLRET EQU * 
PLA *RESTORE 
TAY oN 
PLA ‘ ANT AC 
SEV] RTS 
* 
CTLXFER EQU * 
PHA ;PUSH ONTO STACK FOR 
LDA CTLADL-5,Y 3; TRANSFER TRICK 
PHA 
RTS ;XFER TO ROUPINE 
x 
* Turn cursor on for Pascal only 
* 
XeCUR.ON LDA MODE ;zet mode byte 
BPL CURON.X s=>not pascal, don't do it 
AN]. #£255-=M.CURSOR ;clear cursor bit 
SAVCUR STA MODE ;Save it 
CURON.X RTS sand exit 
* 


* Turn cursor off for Pascal only. 
* Cursor is not displayed during call. 


x 
X¥.CUR.OFF LDA MODE ;get mode byte 
BPL CURON.X s= >not pascal, don't do it 
ORA #M.QCURSOR sturn on curser bit 
BNE SAVCUR ;save and exit 
x 
* EXECUTE BELL: 
* 
xX. BELL- EQ 
LNA #540 sRIPPED OFF FROM MONT TOR 
JSR WAIT 
Loy = #S5¢C0 
BEIL2 LDA  #SOC 
JSR WATT 
LDA SPKR 
DEY 
BNE BELL? 
RIS 
k 
WAIT KOU SRIPPED OFF FROM MONITOR ROM 
SEC 


WAIT2 PHA 
WAIT3 SBC #) 
BNE wWAIT3 
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CB3A:68 
CB3B:E9 
CB3D:D0 
CB3F:60 
CB40: 
CB40: 
CB40: 
CB40: 
CB40:CE 
CB43:10 
CB45:A5 
CB47:8D 
CB4A:CE 
CB4D:20 
CB50: 
CB50:60 
CB5L: 
CB51: 
CB51: 
CB51: 
CB51:A9 
CB53:8D 
CB56:AD 
CB59:30 
CB5B:20 
CB5E: 
CB5E:60 
CBSE: 
CBSF: 
CB5F: 
CB5F: 
CB5F:A5 
CB61:85 
CB63:A9 
CB65:8D 
CB68:4C 
CBO6B: 
CBOB: 
CBOB: 
CBOB: 
CB6B:EE 
CB6E:AD 
CB/1:C5 
CB/73:90 
CB/75:20 
CB/8: 
CB/8: 
CB/8:60 
CB/79: 
CB/9: 
CB/79: 
CB79:A5 
CB7B:C5 
CB/71:BO 


Ol 
F6 


7B 
OB 
21 
7B 
7B 
79 


00 
7B 
FB 
03 
D8 


22 


B00 
7B 
FE 


7B 
7B 
21 
03 
51 


22 
22 
FE 


CB35 


CB40 
05 
CB50 


05 

05 

CB 
CB50 


CB51 


05 

O04 
CBSE 

CB 
CB5E 


CBSF 


05 
CD 


CB6B 
05 
05 


CB/73 
CB 


CB78 


CB9N 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
ZU 
242 
213 
214 
215 
216 
217 
218 
219 
220 
221 
22e 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 


* 


PLA 
SBC 
BNE 
RTS 


# 
WAIT2 


* EXECUTE BACKSPACE: 


* 
X.BS 


BSDONE 


x 


EQU 
DEC 
BPL 
LDA 
STA 
DEC 
JSR 
EQU 
RTS 


* 


OURCH ;BACK UP CH 

BS DONE ; => DONE 

WNDWDTH ;BACK UP TO PRIOR LINE 
OURCH ;SET CH 

OURCH 

X.US ;NOW DO REV LINEFEED 


* 


* EXECUTE CARRIAGE RETURN: 


* 
X.CR 


X.CRRET 


* 


EQU 
LDA 
STA 
LDA 
BMI 
JSR 
FOU 
RTS 


* 


#0 ;BACK UP CH TO 

OURCH ; BEGINNING OF LINE 

MODE ;ARE WE IN BASIC? 

X.CRRET 3=> Pascal, avoid auto LF 
X.LF ;EXECUTE AUTO LF FOR BASIC 


* 


* EXECUTE HOME: 


* 
X.EM 


* 


EQU 
LDA 
STA 
LDA 
STA 
JMP 


* 


WNDTOP 

CV 

#0 

OURCH ;STUFF CH 

VTAB ;set base for OURCV 


* EXECUTE FORWARD SPACE: 


* 
XFS 


* 
X.FSRET 


* 


EQU 
INC 
LDA 
CMP 
BCC 
JSR 


EQU 
RTS 


* 


OURCH ;BUMP CH 

OURCH ;GET THE POSITION 
WNDWDTH ;OFF THE RIGHT SIDE? 
XeFSRET ;=>NO, GOOD 

X.CR 3=>YES, WRAP AROUND 


* 


* EXECUTE REVERSE LINEFEED: 


* 
X 1S 


LDA 
CMP 
BCS 


WNDTOP ;are we at top? 
CV 
X.USRET ;=>ves, stay there 
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CB81 


CB89 


CB&B: 
CB&8D: 
CB8F: 
CB8F: 
CB&F: 
CB8F: 
CB8F: 
CBY2: 
:09 
2 AO 
CB98: 
CB9B: 
CB9D: 
CB9E: 
CBYE: 
:0C 


CB94 
CB96 


CB9E 


CB9F: 
CBAOQ: 
:3F 
200 
CBA3: 
273 
:8F 


CBAI 
CBA2 


CBA4S 
CBAS 


CBA6: 
2:83 


CBA? 


CBA8: 
200 


CBA9 


CBAA: 
CBAB: 
:00 
200 
C BAF: 
:D3 
CBBO: 


CBAC 
CBAD 


CBAF 


CBB1 
CBB2 
CBB3 
CBB4 
CBB5 
CBB6 
CBB? 


CBB8: 
CBB9: 
CBB9: 
CBB9: 


s0 


CB7F:C6 
:4C 
CB84: 
CB84: 
CB84: 
CB&4: 
CB84: 
CB87: 
729 


AD 
19 


AO 
DO 


AD 
10 


8D 
84 
60 


17 
20 


D? 


30 


BE 


E9 
FB 


4c 


EA 


73C 
a 
795 
743 
6A 
:99 
:00 


78 


4B 


25 
FE 


FB 
02 
FB 
FF 
09 


FB 
02 
04 
7F 
FB 
32 


CD 


04 


04 


04 


CB84 


CB8B 


CB98 


CB8F 


CBI6 


CB9E 


CBB9 


241 
242 
243 
244 
245 
246 
247 


249 
250 


257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
27) 
272 
223 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 


DEC CV ;else go up a line 
IMP VTAB sexit thru VTAB (update OURCV) 
x 


* EXECUTE “NORMAL VIDEO" 
* 
X.50 EQU * 
LDA MODE ;SET MODE BIT 
BPL X.SOl sdon't set mode for BASIC 
AND #255-M.VMODE ;SET 'NORMAL' 
X.SOl LDY #255 
BNE STUFFINV ;( ALWAYS) 
* 


* EXECUTE “INVERSE VIDEO" 
k 
K.SI KOU * 
LDA MODE :;SET MODE BIT 
BPL X.SII sdon't set mode for BASIC 
ORA #M.VMODE ;SET ‘INVERSE’ 
X.ST1 LDY #127 
STUFFINV STA MODE ;SET MODE 
STY INVFLG >STUFF FLAG TOO 
X-USRET RTS 
* 
CTLADL EQU * 
DFB  #>X.CUR.ON-1 ;ENQ 
DFB #>X.CUR.OFF-1 ;ACK 
DFB #>X.BELL-1 ; BEL 
DFB #>X.BS-1 BS 
NDFB O ;HT 
DFB #>X.LF-1 = OF: 
DFB #>X.VT-1 *VT 
DFB #>X.FF-1 ;FF 
DFB #>X.CR-1 —;CR 
DFB #>X.SO-1 SO 
DFB #>X.SI-1 foe | 
DFB O DLE 
DFB  #>X.DCI-1 C1 
DFB #>X.DC2-1 ;DC2 
DFB 0 ;bC3 
DFB O ;DC4 
DFB #>X.NAK-1 ,NAK 
DFB #>SCROLLDN-1 ;SYN 
DFB #>SCROLLNP-1 ;ETB 
DFB #>MOUSEOFF-1 
DFB #>X.EM-1 *EM 
DFB #>X.SUB-1  ;SUB 
DFR #>MOUSEON-1 
DFB #>X.FS-1 sFS 
DFB #>X.GS-1 —-3GS 
DFB OO ;RS 
DFB #>X.US-1 7US 
* 
CTLADH KOU * 
DFB  #<X.CUR.ON-S8001 3 ENO 
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CBBA:4B 
CBBB:CB 
CBBC :CB 
CBBD:00 
CBBE:CB 
CBBF:4C 
CBCO:4C 
CBC1:CB 
CBC2:4B 
CBC3:4B 
CBC4:00 
CBC5:4C 
CBC6:4C 
CBC7:00 
CBC8 :00 
CBC9:4N 
CBCA:4B 
CBCB:4B 
CBCC:4D 
CBCD:4B 
CBCE:4C 
CBCF:4D 
CBDO:4B 
CBD1 :4C 
CRD2 :00 
CBD3:4B 
CBD4: 

CBD4: 

CBnN4: 

CBD4: 

CBD4: 

CBD4: 

CBD4: 

CBN4:A0 
CBD6: FO 
CBD8: 

CBD8: 

CBD8: 

CBD8: 

CBD8:E6 
CBDA: A5 
CBDC :8n 
CBDF:C5 
CBEL: 80 
CBE3:4C 
CBE6: 

CBE6: 

CBE6:CE 
CBE9:C6 
CBEB: 

CBEB:A0 
CBED:8A 
CBEE:48 
CBEF:8C 


00 
15 CBED 


CBD8 
25 
25 
FB 05 
23 
03 CBE6 
03 CE 


CBE6 
FB O05 
25 


Ol 


7B 07 


295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 

28 


Oo O™ AW & W Dh 


10 
1} 
12 


14 
15 
16 
17 


19 
20 
21 
22 
23 
24 
Pie 
26 
27 


DFB 
DFB 
DFR 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


* 


* SCROLLIT scrolls the screen either up or down, depending 


#€X.CUR.OFF-S8001 ;ACK 
#<€X.BELL-1 ;BEL 


#<X.BS-1 
a) 
#<X.LF-1 


;BS 
3HT 
+ LF 


#<X.VT-SB001 ;VT 
#<X.FF-S8001 ;FF 


;CR 


£<X.SO-$8001 ;S0 
#<X.SE-S8001 ;SI 


0 


; DLF. 


#<X.DC1-S$8001 ;DC1 
#€X.NC2-S8001 ;DC2 


0 
0 


;DC3 
;DC4 


#<X.NAK-S8001 ;NAK 
#<SCROLLDN-S$8001 ;SYN 
#<SCROLLUP-S$8001 ;ETB 
# <MOUSEOFF-$8001 
#<X.EM-$8001 ;EM 
#<X.SUB-S$8001 ;SUB 

# <MOUSEON-$8001 
#<X.FS-$8001 ;FS 
#<X.GS-S$8U01 ;GS 


0 


;RS 


#<X.US-S8001 5 US 
INCLUDE SUBS2 


* on the value of X. 


It scrolls within windows with even 
* or odd edges for both 40 and 80 columns. 


* windows down to |! characters wide. 


* 


SCROLLDN LDY 


BEQ 
* 


#0 
SCROLLIT 


* EXECUTE LINEFEED: 


* 


X.LF EQU 
INC 
LDA 
STA 
CMP 
BCS 
JMP 


X.LF2 EQU 
DEC 
DEC 

* 

SCROLLUP LDY 

SCROLLIT TXA 
PHA 
STY 


* 

CV 

CV 
OURCV 
WNDBTM 
X.LF2 
VTABZ 


* 
OURCYV 


CV 
#] 


TEMP1 


Appendix B 


sdirection = down 
;=>go do scroll 


;SEE IF OFF BOTTOM 
;OFF THE END? 


s=>yes, scroll screen 
sexit thru VTABZ 


;back up to bottom 
;and fall into scroll 


sdtrection = up 
;save X 


ssave directton 


> Apple Te Monitor ROM Listing 


It can scroll 


8] 


CBF2 
CBF4 
CBFS 


CBFA 
CBFD 


CCOL 


CCUZs 
290 
726 
t2A 
COUR. 
CCOB: 
Cccnc: 
CCOR: 


Cony 
CCHS 
CCO8 


CCl 
CCl 1 
CC13 
CO16 
CCl? 


CCLY: 
COLA: 
CCIC: 
CClE: 
CCOLF: 
Cel ir: 
v0) 
GC2A 

:A5 
“BS 
:A5 
285 
CC2 Bs 
COZB: 
COLE: 
ra vie: 
:E4 
CO335 
:BA 


CC21) 


CC23 
CE2Z5 
CC27 
CC29 


CC30 
CC31 


CC35 


CC 36% 
CC39: 
CC3B: 
208 


CC3C 


CC3D: 
CC3F: 
:98 


CC42 


CC43: 
CC45: 
291 
CC49: 
CC4&A: 
CC4C: 


CC47 


re) 
248 
t2C 
CBF8: 
5.03 
24A 
CBRE: 
CBFF: 
244 


LO 


AA 
AS 


B8 


45 
4A 
70 
Bn 


:CA 
26 
7 AD 
:08 
:A6 


98 
nO 
Ab 
CA 


BA 


AD 
FO 


BO 


20 
A4 
28 


10 
AD 


FO 
Bl 


88 
DO 
70 


21 


PE 
1c 
] 


20 


3 
O6 


21 


03 
M1 


21 
iF 


03 
Zz 


28 
2A 
29 
2B 


7B 
32 


23 
32 


03 
2] 


LE 
55 


07 
28 
2A 


FY 
04 


28 LDA WNDWDTH swet width of screen window 
29 PHA ssave original width 
co 30 BIT RD8OVID sin 40 or 80 columns? 
CC1l6 31 BPL GETSTI 3=>40, determine starting Line 
co 32 STA SETBOCOL s;make sure this is enabled 
33 LSR OA sdivide by 2 for 80 column index 
34 TAX ;and save 
35 LDA  WNDLET stest oddity of right edge 
36 LSR OA tby rotating tow bit into carry 
37 CLV ;V=0 if left edge even 
CCOR 38 BCC CHKRT s=>check right edge 
CK 39 BIT SEVi ;V=l if left edge odd 
40 CHRKRT ROL OA ;restore WNDLFT 
4] EOR WNDWDTH sget oddity of right edge 
4? LSR OA -C=l if right edge even 
CCll 43 BVS GETST -if odd left, don't DEY 
GC 4&4 ROS) GETST sif even right, don’t DEY 
45 DEX sif right edyve odd, need one tess 
46 GETSE STX WNDWDTH ssave window width 
cn 47 LDA RD&SOVID *N=l if 80 columns 
4B GETSTL PHP ssave N,2,V 
49 LDX WNDTOP sassume scroll from top 
50 TYA sup or down? 
COLE 31 BNE SETDBAS ;=P-up 
52 LDX WNDBTM :doewn, start serolling at bottom 
53 DEX sreally need one less 
54 * 
55 SEPDBAS TXA ‘get current line 
CE 36 JSR VTABZ scalculate base with window width 
57 * 
58 sSCRLIN LDA BASL scurrent line is destination 
59 STA  BAS2TL 
Hi) LDA BASH 
61 STA BAS2H 
62 * 
07 63 LDA TEMPL ‘test direction 
CC62 64 BEQ SCRLDN ;=>do the downer 
65 INX sdo next line 
66 CPX WNDBTM ;done yet? 
CC67 67 BCS  SCRLLY ;=>yup, all done 
68 SETSRO TXA sset new line 
CE 69 ISR VTABZ ;fet base for new current line 
70 LDY WNDWDTH sgzet width for scrolt 
Fa PLP tget status for scroll 
72 PHP ;N=l if 80 columns 
CeS0 73 BPL SKPRT s=Ponly do 40 columns 
co 74 LDA TXTPAGE2 j;scroll aux page first (even bytes) 
Fis) TYA ;test Y¥ 
CC4C 76 BEQ SCRLFT sif Y=0, only scroll one byte 
77 SCRLEVEN LNA (BASL),Y 
78 STA (BAS2L),Y 
79 DEY 
Cc45 80 BNE SCRLEVEN ;do all but last even byte 
CC52 81 SCRLFT BVS  SKPLFT iodd left edge, skip this byte 
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CC4E: 
791 
: AD 
:A4 
: BO 
CC59: 
CC5B: 
Cc5D: 
CC5E: 
CC60:: 
CC62: 
7CA 


cc5o0 
cc52 
cc55 
ccs7 


CC62 


CC63: 
CC65: 
CC67: 
328 
768 
35 


CC67 
CC68 
CC69 


CCO6B: 
CCOE: 
:68 
7 AA 
:60 
CC74: 
CC74: 
CC74: 
CC74: 
COTT: 
cc79: 
CC7A: 
cc7C: 
CC7F: 
CC&2: 
cck4: 
CC86: 
CCBB: 
CC8A: 
CC8B: 
CC8D: 
cc90: 
cc90: 
CC90: 
cc90: 
cc90: 
74C 
CC96: 
CC96: 
CC96: 
CC96: 
cCc98: 
CC9A: 
CC9A: 
CC9A: 
CC9A: 


cc71 
CC72 
CC73 


CC93 


Bl 


Bl 
91 
88 
10 


E4 
10 


20 
20 


20 


AO 
FO 


28 
2A 


21 
04 
28 
2A 


F9 
Cl 


Z2 
CE 


21 
96 
FE 


9A 
25 


06 
03 
96 
25 
25 
23 
F2 


25 
FE 


SF 
74 


00 
03 


7B 


CO 


cce5sn 


cc59 
CC23 


cc35 


cc 
cn 


CC 


CC82 
CE 
cc 


cc7c 


CD 


cc90 
CB 
cc 


CC9D 


O5 


82 
83 


85 
86 
87 
88 
89 


91 
92 


94 
95 


97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
198 
109 
110 
111 
112 
113 
114 
115 
116 
Li? 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 


SKPLFT 


SCRLODD 


SKPRT 


k 
SCRLDN 


t 
SCRLL3 


* 


LDA 
STA 
LDA 
LDY 
BCS 
LDA 
STA 
DEY 
BPL 
BMI 


DEX 
CPX 
BPL 


PLP 
PLA 
STA 
JSR 
JSR 
PLA 
TAX 
RTS 


(BASL),Y 

(BAS2L),Y 

TXTPAGE] snow do main page (add bytes) 

WNDWDTH ;restore width 

SKPRT seven right edge, skip this byte 

(BASL),Y 

(BAS2L),Y 

SCRLODD 

SCRLIN 3=> always scroll next line 
;do next Line 

WNDTOP ;done yet 

SETSRC ;=P>nope, not yet 
;pull status off stack 
;restore window width 

WNDWDTH 

X.SUB ;clear current line 

VTAB srestore original cursor line 
sand X 
;done!!! 


* EXECUTE CLR TO EOS: 


cS 
X.VT 


X-VTLOOP JSR 


XeVTNEXT INC 


* 


JSR 
LDA 
PHA 
BPL 


JSR 


LDA 
CMP 
BCC 
PLA 
STA 
JMP 


X.GS ;CLEAR TO EOL 
CV SSAVE CV 
XeVTNEXT ;DO NEXT LINE (ALWAYS TAKEN) 
VTABZ ;set base address 
X.SUB sCLEAR LINE 
CV 
CV 
WNDBTM ;OFF SCREEN? 
XeVTLOOP 3;=>NO, KEEP GOLNG 
» RESTORE 
CV =. CV 
VTAB $return via VTAB (blech) 


* EXECUTE CLEAR: 


k 
Xo FF 


* 


EQU 
JSR 
JMP 


k 


X.EM 
X.VT 


;sHOME THE CURSOR 
;RETURN VIA CLREOS (UGH!) 


* EXECUTE CLEAR LINE 


k 
X.SUB 


* 


LY 
BEO 


#0 
X.GSEOLZ 


;start at left 
sand clear to end of line 


* EXECUTE CLEAR TO EOL: 


* 
X.GS 


LDY 


OURCH sget CH 
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CC9D:A5 
CC9F:29 
CCA] :09 
CCA3:2C 
CCA6: 30 
CCAB:91 
CCAA:C8 
CCAB:C4 
CCAD: 90 
CCAF:60 
CCBO: 

CCRO: 

CCBO: 

CCRO: 

CCBO: 86 
CCB2:A2 
CCB4: A0 
CCB6: A5 
CCBR:29 
CCBA:4C 
CCBD: 

CCBD: 

CCBD: 

COBD:86 
CCBF:48 
CCCO:98 
CCC1:48 
COC2:238 


CCC3TES- 


CCCI SAA 
CCCH:98 
CCC7 2:44 
CCC8:A8 
CCCI:68 
CCCA:45 
COCes HA 
CCCD: BO 
CCCF:10 
CCD1:C8 
CCD2 :62 
CCD3: BU 
CCN5:2C 
CCN8:9] 
CCDA:2C 
CCDD:E8 
CCDE: FO 
COEO:9% 
COEZ 2636 
CCE3:E8 
CCE4:)p0 
CCE6: A6 
CCKE8:38 
CCKEI:60 
CCEA: 


32 
80) 
20 
LF 
15 
28 


21 
F9 


2A 
D8 
14 
32 
AQ) 
D5 


2A 


20 


03 
Ol 


OB 
55 
a8 
54 


6 
28 


CO 


cc 


co 


co 


CCBD 


CCA8 


CCD2 
CCD2 


CCE 


CGEG 


CCDS 


136 
137 
138 
139 
140) 
14] 
142 
143 
144 
145 
146 
147 
148 
149 
150 
15) 
152 
133 
154 
155 
156 
157 
158 
159 
160 
lol 
162 
163 
164 
165 
l6h 
167 
168 
169 
170 
171 
L#zZ 
173 
174 
175 
176 
177 
178 
179 
180 
181 
1&2 
183 
184 
185 
186 
187 
188 
1389 


X.GSEOLZ LDA INVFLG smask blank 
AND #S$80 swith high hit of invflg 
ORA #S$20 smake it a blank 
BIT RD8BOVID sis it 80 columns? 
BMI CLR80 s=>yes do quick clear 
CLR4&0 SFA (BASL),Y 
TINY 


CPY WNDWDTH 

BCC CLR4&0 

RTS 
x 
* Clear right half of screen for 40 to 80 
* screen conversion 


x 

CLRHALF STX BAS2L ssave X 
LDX #S1N8 ‘set horizontal counter 
LDY #20 
LDA  INVFLG sset. (inverse) blank 
AND #SA0O 
IMP CLR2 

k 


* Clear to end of line for 80 columns 


k 
CLR80O STX  BAS2L *save X 

PHA ;and blank 

TYA szet count for CH 

PHA ssave for left edge check 

SEC ;count=WNDWDTH-Y-] 

SBC WNDWDTH 

TAX ssave CH counter 

TYA :div CH bv 2 for half pages 

LSR OA 

TAY 

PLA srestore original ch 

FOR WNDLFT ;zet starting page 

ROR A 

BCS  CLRO 

BP]. CLRO 

I NY siff WNDLFYT odd, starting byte odd 
CLRO PLA ‘get blank 

BCS CLRI sstarting page is | (default) 
CLR2 BEF TXTPAGE2 j;else do page 2 

STA (BASL),Y 

BIT TXTPAGEL j;now do page 1 

[NX 

BEQ CLRY sall done 
CLR] STA (BASL),Y 

I NY ,forward 2 columns 

TNX wnext ch 

BNE CLR2 snot done vet 
CLRY LOX BAS2L srestore X 

SEC szood exit condition 

RTS sand return 
* 


Appendix Bo \pple The Morutor ROM Listing 


CCEA: 

CCEA: 

CCEA: 

CCEA: AD 
CCED: 30 

CD3C 

CCEF:20 
CCF2:2C 
CCF5:10 
CCF7:20 
CCFA:90 
CCFC: 

CCFC: 

CCFC: 

CCFC: 

CCFC :20 
CCFF: DO 
CDO1: 
CD04 :30 
CD06:20 
CD09: 
CD09: 
Cnoc: 
CDOD: 
CDOF:2C 
CD12:30 
CD14:Cc9 
CD16:90 
CD1L8:A9 
CDLA:8D 
CDID:85 
CDIF:A5 
CD21:20 
CD24:2C 
Ch27:10 
CN29: 

CD29:20 
CD2C: FO 
CD2E: 

CD2E:20 
CN31:A9 
CN33:2C 
CD36 :30 
CD38: A9 
CD3A:85 
CD3C :60 
CD3D: 

CD3D: 

CD3D: 

CO3N: AD 
CD40:09 
Cb42:D0 
CnN44: 

CD44: 


AD 
18 
65 


CCEA 
FB 04 
4D 
194 
31 CD 
LF co 
12 
9] 
On 


CbBO9 
cn 
CDO9 


CCFC 
CA 

CD3C 
co 

CDO9 
cn 


90 
3B 
1F 
03 
C4 
7B 05 
20 
lF 
06 
28 
O02 
27 
7B 
24 
25 
BA 
1F 
05 


co 
CDIA 


CDIA 
O5 
CA 
CO 


CD2E 


71 
03 


cn 
CD31 


6D 
VO 
1A 
U2 
14 
Ze 


CD 


CO 
CD3A 


FR 04 
01 


05 CD49 


190 * EXECUTE 


191 
192 
193 


BMI 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
224 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 


* 
X.DC1 


EQU 
LDA 


X.DCIRTS 


XeDCLA 


* 


JSR 
BIT 
BPL 
JSR 
BCC 


*40COL MODE': 


* 
MODE 


sdon't convert if Pascal 


;=>it's Pascal 


SETTOP 
RDBOVID 
X.DC1B 
SC RN84 
X.DC1B 


* Set 80 column mode 


* 
X-DC2 


X.DC1B 


X.NDC1LC 


x 


DnO8O 


* 


DO40 
SETTOP 


DO4OA 


X-DCLRTS RTS 


* 


* EXECUTE 


* 


s;set top of window (0 or 20) 
sare we in 80 columns? 
3=>no, no convert needed 
selse convert 80 to 40 
s=>always set new window 


EQU * 
JSR TESTCARD jis there an 80 column card? 
BNE X.DCIRTS ;=>no, can't do this 
BIT RD8OVID sare we in 40 columns? 
BMI X.DCIB ;=>no, no convert needed 
JSR SCRN48 selse convert 40 to 80 
LDA OURCH ;get cursor 
CLC ;since new window left = 0 
ADC WNDLFT ; NEWCH=OLDCH+OLDWNDLFT 
BIT RD80VID sin 80 columns? 
BMI xX.DCIC 3=>yes, CH is ok 
CMP #40 selse if CH is too big, 
BCC X.DCIC sset it to 39 
LDA #39 
STA OURCH ;save new CH 
STA CH 
LDA CV ; base 
JSR BASCALC 
BIT RD80VID sin 80 columns? 
BPL D040 ;=>no, set forty column window 
JSR FULL80 ;set 80 column window 
BEQ SETTOP ;=Palways branch 
JSR FULL40 sset 40 column window 
LDA #0 sassume normal window 
BIT RNTEXT stext or mixed? 
BMI DO40A 3=>text, all ok 
LDA #20 
STA WNDTOP ;set new top 
MOUSE TEXT OFF 


MOUSEOFF LOA MODE 


* 


* EXECUTE MOUSE TEXT ON 


ORA 
BNE 


#M.MOUSE 
SMOUSE 
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;set mouse bit 
;to disable mouse chars 


89 


CD44: 


CD44: 


Cn47 
CD49 
CD4C 


:29 
:8D 
:60 


CD4D: 
CD4D: 
CD4D: 
CD4D: 


CD4D: 


CD50 
CDS2 


CD55: 
CD58: 


AD 
230 
220 
20 
20 


CD5B: 


CD5B: 


CDS) 


CD5F: 


CD61 
CD63 


AY 
785 
AY 
785 
60 


CD64: 


CD64 
CD66 


CN68: 
CD6A: 
CDéC: 


:A9 
785 
AY 
85 
60 


CD6D: 
CN6D: 
CD6N: 
CD6D: 
CD6D: 
CN6D: 
CDO6D: 
CD6D: 
CD6N: 
CD6D: 


CD6D 
CD6F 


:A9 
pa 


CD/1: 
CD71’: 
CD71: 
Cb7 T: 
CD71: 
CD/1: 
Chil: 
CD71: 
CD71: 


CD71 
CD73 
Cn75 
CD77 


CD79: 
CD7B: 
Ch7D: 


Sh 


:A9 
785 
:A9 
yo 
Ad 
85 
85 


FB 
FE 
FB 


04 


04 


FB 04 


1A 
2E 
80 
64 


FD 
39 
1B 
38 


FD 
a7 
FO 
36 


28 
2 


50 
ra 
18 


00 
22 
20 


CD 
cD 
CD 


CD4D 


CN6C 


Cn6D 


ch73 


243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 


277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
2972 
293 
294 
295 
296 


* 
MOUSEON LDA MODE 
AND #255-M.MOUSE ;clear mouse bit 
SMOUSE STA MODE ;Co enable mouse chars 
RTS 
* 
* EXFCUTE 'QUIT': 
* 
X.NAK EQU * 
LDA MODE SONLY VALID IN BASIC 
BMI SKRTS signore if pascal 
JSR DO40 sforce 40 column window 
JSR QUIT ‘do stuff used by PR#O 
JSR SETCOUTL ;set output hook 
x 
SETKEYIN LDA #<KEYIN *set input hook 
STA KSWH 
LDA #>KEYIN 
STA KSWL 
RTS 
* 
SETCOUTL LDA #<COUT) ;set output hook 
STA CSWH 
LDA #>COUTI 
STA CSWL 
SKRTS RTS 
x 
PTE TETITICT TTL LL LL. 
* NAME FULL40 
* FUNCTION: SET FULL 40COL WINDOW 
* INPUT NONE 
* OUTPUT : WINDOW PARAMETERS, A=0 
* VOLATILE: AC 
FOR IIT IK RIO RK RIK a a KR RK 
x 
FULL40 EQU * 
LDA #40 sset window width to 40 
BNE SAVWDTH ;=>Calways taken) 


* 
KAKI KAKI KARE KKKKEKKKKKKKKKK 


* NAME FULL&0 

* FUNCTION: SET FULL 80COL WINDOW 
* TNPUT NONE 

* QUTPUT : WINDOW PARAMETERS, A=0 
* VOLATILE: AC 


KKRIKKKKKKKKHKKRKKAKKKKKKKKKK KKK AK KKK KK KKK 
* 


FULL8O LDA #80 eset full 80 column window 
SAVWDTH STA WNDWDTH 

LDA #24 

STA WNDBTM 

LDA #0 

STA WNDTOP 

STA WNDLFT 
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CD/F: 
CD80: 
CD80: 
CD80: 
CD80: 
a2G 


CD80 


CN83: 
220 


CD85 


CD88: 
CD&B: 
CnN8nN: 
760 
CD91: 
CnN9l: 
CD91: 
CD91: 
cng9l: 
cng9l: 
CD92: 
Ch93: 
Cb95: 
CD98: 
CD99: 
CD9IC: 
CD9E: 
CDAO: 
CDAL: 
CDA2: 
CDA4:: 
CDA7: 
CDA8: 
CDAA: 
CDAD: 
CDAF: 
CDBI: 
CDB2: 
CDB4: 
CDB5: 
CDB7: 
CDB9: 
CDBB: 
CDBE: 
CDCI: 
cnc4: 
8A 


Cb90 


CpCc4 


Cncs5: 
CDC6: 
CDC8: 
720 


cnc9 


CDCC: 
:8D 


CDCE 


CDD1: 
784 
748 


CND3 
CDD5 


60 


10 
8D 


A9 
8D 


48 
A2 
8A 
AO 


Bl 


LF 
03 
EF 
OE 
FF 
FB 


17 
01 


BA 
27 
2A 


03 
55 


28 
54 
2A 
28 


EA 


04 
ae 
DD 
00 
QC 
F8 


17 


BA 
00 


28 
2A 


CD80 
co 
CD88 
CC 
co 


04 


CO 


CA 


CDA? 
CO 


co 


CD9E 

CDBB 

CN98 
CO 


co 
CD 


CA 


297 RTS 

298 * 

299 * QUIT is used by PR#O to turn off everything 

300 * 

301 QUIT EFQU * 

302 BIT RD80VID ;were we in 80 columns? 

303 BPL QULT2 ;=> not a chance 

304 JSR X.NDCIA sswitch to 40 columns 

305 QUIT2 STA CLRALTCHAR ;don't use lower case 

306 LDA #SFF ;DESTROY THE 

307 STA MODE ; MODE BYTE 

308 RTS 

309 * 

310 * SCRN84 and SCRN48 convert screens hetween 40 & 80 cols. 
311 * WNDTOP must be set up to indicate the last line to 
312 * he done. All registers are trashed. 

313 * 

314 SCRN84& TXA *save X 

315 PHA 

316 LDX #23 sstart at hottom of screen 
317 STA SET80COL ;allow page 2 access 

318 SCRI TXA scale base foc line 

319 JSR BASCALC 

320 LDY #39 ;Start at right of screen 
321 SCR2 STY BAS2L ssave 40 index 

322 TYA sdiv by 2 for 80 column index 
323 LSR A 

324 BCS SCR3 

325 BIT TXTPAGE2 j;even column, do page 2 

326 SCR3 TAY ;get 80 index 

327 LDA (BASL),Y ;get 80 char 

328 BIT TXTPAGE] j;restore pagel 

329 LDY BAS2L sget 40 index 

330 STA (BASL),Y 

331 DEY 

332 BPL SCR2 ;do next 40 byte 

333 DEX sdo next line 

334 BMI SCR4 ;=>done with setup 

335 CPX WNDTOP ;at top yet? 

336 BCS SCRI1 

337 SCR4 STA CLR80COL ;clear 80STORE for 40 columns 
338 STA CLR8OVID ;clear 80VID for 40 columns 
339 JMP SCRNRET scalc base, restore X, exit 
340 * 

341 SCRN4&8 = TXA ssave X 

342 PHA 

343 LDX #23 ;start at bottom of screen 
344 SCR5 TXA ;set base for current line 
345 JSR BASCALC 

346 LDY #0 sStart at left of screen 
347 STA SET80COL ;enable page2 store 

348 SCR6 LDA (BASL),Y j;get 40 column char 

349 SCR8 STY BAS2L ssave 40 column index 

350 PHA ;save char 
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x7 


CYD6H:98 
CND7:4A 
CODR: BO 
CDODA:8D 
CDDD: A8 
CDDE 2:68 
CDDF:91 
CNE1:8D 
CDE4:A4 
CDE6:C8 
CDE7 =CO 
CDE9I:90 
CDEB:20 
CDEE:CA 
CDREF:30 
CDFI:E4 
CHEFS: BO 
CDFS:8D 
CHFB:20 
CDFR:68 
CDFCLAA 
CDFD:60 
COUPES 

COFEZAS 
CE0N: 8D 
CEO3:20 
CEI6:A5 
CEO8 :2C 
CENB:19 
CEOD 4A 
CENE: 18 
CEUFr65 


Chl SS a2 2 


CEI3:60 
CE14: 
CKE1L4:C9 
CEL16:90 
CEL8:C9 
CELA: BO 
CKIC+29 
CEIE:60 
CELE: 
CELE: 
CELF: 
CELF: 
CEIF: 
CELE 
CELF: 
CELF: 
CELF: 
CELE: 
CEIF: 


03 
35 


28 
54 
2A 


28 
E6 
BO 


O04 
22 
D3 
UD 
FE 


25 
FB 
BA 
20 
LF 
O] 


28 


om 
06 
FB 
02 
DF 


CO 


co 


CC 


CO 
Cp 


O5 
CA 


co 


CELF:AD FB 04 


CF22:29 


10 


CDPD 


CDN] 


CNDES 


CDCR 


CEOE 


CELE 


CHIE 


18 


SCR? 


SCRY 
SCRNRET 


VTAB 


VTABZ 


VTAB&6 


VTABX 


PSHFT 


UPSHFT2 
x 


TYA 

LSR A 

BCS SCR? 

STA TXTPAGE2 
TAY 

PLA 

STA (BASL),Y 
STA TXTPAGEL 
LDY 8AS2L 
INY 

CPY #40 

BCC SCRO6 

JSR CLRHALF 
DEX 

BMI = SCRY 

CPX WNDTOP 
BCS  SCR5 

STA SET8OVID 
JSR  VTAB 

PLA 

TAX 

RTS 

LDA CV 

STA  OURCYV 
JSR BASCALC 
LDA WNDLFT 
BIT RDROVID 
BPL VTAB40 
LSR OA 

CL 

ADC BASIL 
STA BAST 

RYS 

INCLUDE SUBS3 
CMP #S5E1 

BCC UPSHET2 
CMP #SEFB 

BCS UPSHFT2 
AND #SDF 

RTS 


sdiv 2 far 8) column index 


psave on pagel 


szet &Q column index 
snow save character 


;tlip pagel 

srestore 40 column index 
smove to the right 
sat right vet? 

;=>no, do next column 
sclear half of sereen 
selse do next line of 
3=>done with top Line 
;at top vet? 


screen 


sconvert to 80 columns 
supdate base 
;restore X 


sget 380 column CY 

scopy to OURCV 

scale base address 

sand add window left to it 
it 80 columns? 
swindow width ok 

selse divide width dv 2 
;prepare to add 

‘add in window lett 
sand update base 

sand exit 


;is 


sis it lowercase? 
;=-nope 

; Lowercase? 
;=>nope 

:else upshitt 


KERR EEKRAREKRKEKKKKKKKKEKKKAKKK 


* NAME 

* FUNCT IL 
* 

* INPUT 
* OUTPUT 
* VOLATI 
* CALLS 


. 
. 


ON: 


[INVERT 


{NVERT CHAR AT CH/CV 


Untess Pascal 


NOTHING 


and M.CURSOR=] 


: CHAR AT CH/CV INVERTED 


LE: 


NOTH LNG 
PICK, 


STORCHAR 


KEKE KEKRKERKKEK KERR RRR ERE RKKKKEKKKKKKKKEEE 


x 
PASINV 


LDA 
AND 


MODE 


scheck pascal cursor flag 


#M.CURSOR ;betore displaying cursor 
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CE24 
CE26 
CE2?7 
CE28 
CE29 


CE31 
CE34 
CE35 


CE36: 
60 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
CE38: 
:48 
£24 


CE3?7 


CE38 
CE39 


CE3B: 
CE3D: 
CE3F: 
CE3F: 
CE42: 
CE43: 
CE44: 
CE44; 
CE44;: 
CE44: 
CE44: 
CE44: 
CE44: 
CE44: 
CE44: 
CE44: 
CE46: 
CE49: 
CE4B: 
CE4E: 
298 
2:45 
CE53: 
CE54: 
> AD 
:C8 


CE50 
CE51 


CE56 
CE59 


CESA: 
t4A 
CESC: 


CE5B 


:DO 
2:48 
:98 
:48 
> AC 
CEZC? 
CE2F: 
2:20 
68 
:A8 


49 


68 


30 
29 


20 
68 
60 


Bl 
2C 
10 
8D 


6A 
BO 


98 


A8 


11 


7B 05 
44 CE 
80 

70 CE 


a2 
02 
7F 


70 CE 


28 
HFC 
19 
01 CO 
2A 


20 


04 
55 CO 


CE37 


CE64 


CE5SA 


20 
21 


BNE INVX s=Deursor off, don't invert 
INVERT PHA ssave AC 
TYA - AND Y 
PHA 
LDY OURCH 3;GET CH 
JSR PICK *GET CHARACTER 
EQOR #S80 -FLIP LNVERSE/ NORMAL 
JSR STORIT : ONTO SCREEN 
PLA ;RESTORE Y 
TAY ; AND AC 
PLA 
INVX RTS 
TTTTTTICIT ICI TITT TIT TITITLITT TTT TTT Titi t: 
* NAME : STORCHAR 
* FUNCTION: STORE A CHAR ON SCREEN 
* INPUT : AC=CHAR 
* : Y=CH POSITION 
* OUTPUT : CHAR ON SCREEN 
* VOLATILE: NOTHING 
* CALLS >: SCREENIT 
KK IR RRR RRR KR KIKI KI KIKI KR RK IK RK KK RK 


x 
STORCHAR EOU * 


PHA ;SAVE AC 
BIT LINVEFLG ;NORMAL OR TNVERSE? 
BMI STOR2 ;=>NORMAL 
AND #S7F sinverse it 
STOR2 EQU * 
JSR STORIT s=>do it!! 
PLA “RESTORE AC 
SEV RTS 
PITT TETTCTICTICTOCTITC TOTTI TT CLE LTT TTT Ty 
* NAME : PICK 
FUNCTION: GET A CHAR FROM SCREEN 


* 
* INPUT > Y=CH POSITION 
* OUTPUT : AC=CHARACTER 

* VOLATILE: NOTHING 
* CALLS >: SCREENIT 


KKAKKKKKKKKEKKEKKRKKKKEKKKKKKKK KKK KKK KKK KE 

* 

PICK LDA (BASL),Y ;get 40 column character 
BIT RD80VID ;80 columns? 
BPL PICK3 s=>no, do text shift 
STA SET80COL ;force 80STORE for 80 columns 
STY BAS2L ;temp store for position 
TYA :divide CH by two 
EOR WNDLFT ;C=]1 if char in main RAM 
ROR A ;zet low bic into carry 
BCS PICKI 3=>store in main memory 
LDA ‘TXTPAGE2 ;else switch in page 2 
INY ;for odd left, aux bytes 

PICK] TYA ;divide position by 2 
LSR A ;and use carry as 
TAY ;page indicator 
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SY 


CESD:Bl 28 74 PICK2 LDA (BASIL),Y j;get that char 


CESF:2C 54 CO 75 RIT TXTPAGEL 3;flip to page 1 

CE62:A4 2A 76 LDY BAS2L 

CE64:2C LE Co 77 PICK3 BIT ALTCHARSET ;only allow mouse text 
CK67:10 06 CKAF 78 BPL PICK4 sif alternate character set 
CK69:C69 20 79 CMP #S$20 

CE6B: BU 02 CEOAF 80 BCS PICKS 

CE6D:09 40 8] ORA  #S40 

CE6F:60 R? PICKS RTS 

CE70: 83 * 

CE70: ROO IOI RIOR OR OIRO SO IR IK 

CE70: 35 * NAME : STORIT 

CE70: 86 * FUNCTION: STORE CHAR 

CE70: 87 * INPUT >: AC=char for store 

Cees xB * > Zehigh bit of char 

CE/70: 89 * >: Y=CH POSITION 

CEI: 90 * OUTPUT =: AC=CHKAR (PICK) 

CK70: 91 * VOLATILE: NOTHING 

CKE7O: 92. * CALLS > NOTHING 

CE70: RRR OK II RK RIOR IRR RRR RIO RK RIK 

CE70: 94 * 

CR/0248 YS STORIT PHA ;save char 

CE71:29 FF I AND #SFF sif high bit set... 
CE73:30 16 CE8B 97 BMI STORE] *=Onot mouse text 
CK75:AD FB 04 98 LDA MODE ;is mouse text enabled? 
CE7#%:64 OY ROR OA suse carry as tlay 
CE79:68 Loo PLA sand restore char 
CRIA:4R tn] PHA ineed to save it too 
CE7B:90 OF CE8B 10? KCC =STORE] 

CR?#N:2C TE co 104 BIT ALTCHARSET sonlv do mouse text if 
CKBO:LO O9 CE8B 104 BPL STORF] salt char set switched jin 
CER? :49 40 LOS FOR #S4N ido mouse shift 

CEB4:2C AG CE 16 BIT HEX60 sis it in proper ranye? 
CERI FU 02 CEXB 17 BEQ STORE ,=>ves, leave it 
CK89:49 40 L108 EOR #540 selse shift it back 
CE8B: }O9 * 

CRK8B:2C0 IF CO 110 STOREL BIT RDBOVID 230 columns? 

CRKRES 10 ED CEAD 111 BP], STOR4O s=>no, 40 columns 

CHIN TBD OL Cu il2 STA SETR3OCOL zforce B8OSTORE tor 80 columns 
CE93:48 aes PHA ;save shifted character 
CE94:84 DA 114 STY  BASZL ;temp storage 

CEI6H:98 t15 TYA szet position 

CREI7 245 20 116 FOR WNDLET 3C=] it char in main RAM 
CK9O9:4A ‘Be, LSR OA 

CRIA BO 04 CEAD L1R BES STORF2 ,=>ves, main RAM 

CEIG SAG: 33: 164 119 LDA TXTPAGE2 selse flip in main RAM 
CEIF:CH 120 [NY sdo this For odd left bytes 
CEAUD SYR 121 STORE? TYA izet position 

CRKALI4A | 22 [LSROA sand divide it by 2 
CEA2:A8 123 TAY 

CKA3:68 124 STORIT2 PLA srestore acc 

CEAS:91 28 125 STA (BASL),Y save to screen 

CEA6:AD 54 CO 126 LDA TXTPAGEL Flip to page | 

CEAI: AS 2A 12.7 LDY BAS2L 
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CEAB 
CEAC 


CEB1 


CEB3 


CEC] 


CEC4 


CECS: 
248 
2 AC 


CEC6 
CEC? 


CECA: 
CECN: 
CECD: 
CEDQ: 
:A8 
:68 


CED1 
CEN2 


CED3: 
CED4: 
CED4: 
CED4: 
CED4: 
CED4: 
CED4: 
CED4: 
CED4: 


768 
:60 
CEAD: 
CEAD: 
CEAF: 
CEBO: 
CEBIL: 
CEBL: 
CEB1: 
CEBL: 
CEBL: 
CEB1L: 
CEB1: 
CEBL: 
CEBL: 
CEBL: 
:48 
CEB2: 
748 
CER4: 
CEB?: 
CEBA: 
CEBD: 
CEBF: 
:4C 
CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

CEC4: 

248 


91 
68 
60 


AC 
20 
8D 
29 
49 


98 


AD 


20 


60 


28 


7B 05 
44 CE 
7B 06 
80 
AB 
CD CE 


7B 05 
7B 06 


70 CE 


CEBL 


CECS 


CECN 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


HEX60 


* 


STOR4O 


PLA 
RTS 


STA 
PLA 
RTS 


;srestore true Acc 
sand exit 


(BASL),Y ;quick 40 column store 
;restore real char 


RRKKKEKK KKK RK RRR 


* 
x 
x 
* 
x 
x 


NAME 
FUNCTI 
INPUT 
OUT PUT 
VOLATE 
CALLS 


ON: 


LE? 


ESCON 

TURN ON 'ESCAPE' CURSOR 
NONE 

"CHAR'=ORIGINAL CHAR 
NOTHING 

PICK, STORCHAR 


KREEKKKKKKKKK KKK KKK KKK KKK KKK KKK 


* 


*SAVE AC 

- AND Y 
OURCH :GET CH 
PICK :GET ORIGINAL CHARACTER 
CHAR - AND REMEMBER FOR ESCOFF 
#$80 ;SAVE NORMAL/ INVERSE BIT 
#SAB -MAKE IT AN INVERSE '+? 
ESCRET >RETURN VIA SIMILAR CODE 


kkk kh KK RRR RRR KKK 


ESCON EQU 
PHA 
TYA 
PHA 
LDY 
JSR 
STA 
AND 
EOR 
JMP 
NAME 
FUNCTION: 
INPUT 
OUTPUT 
VOLATILE: 
CALLS 


* 
* 
* 
* 
* 
x 


ESCOFF 

TURN OFF ‘ESCAPE’ CURSOR 
"CHAR'=ORIGINAL CHAR 
NONE 

NOTHING 

STORCHAR 


khhkkkkkhkhhk kerk RRR KKK 


* 


x 
*SAVE AC 
; AND Y 
OURCH ‘GET CH 
CHAR ;GET ORIGINAL CHARACTER 
7 ;USED BY ESCON 
STORIT ; EXACTLY AS IT WAS 
;RESTORE Y 
* AND AC 


kkk kk eek RRR RRR KKK Kaa RRR 


ESCOFF EQU 
PHA 
TYA 
PHA 
LDY 
LDA 

ESCRET EQU 
JSR 
PLA 
TAY 
PLA 
RTS 

* NAME 

* FUNCTION: 

* INPUT 

* OUTPUT 

* VOLATILE: 

* CALLS 


PSETUP 

SETUP ZP FOR PASCAL 
NONE 

NONE 

AC 

NOTH ING 


KREEKKKKKKaKKKKKKKKKK KKK KKK 


Appendix B: Apple He Monitor ROM Listing 


4] 


CED4: 

CED4: 

:20 
CED?: 
CED9: 
CEDB: 
CEDB: 
CEDE: 
:FO 
746 
CEE4: 
CEE4: 
CEF4: 
785 
CEE9: 
CEEC: 
CEEFE: 
285 


CED4 


CEEO 
CEE2 


CEE? 


CEF1 


CEF3: 
CEF4: 
CEF4:;: 
CEF4: 
CEF4: 
CEF4: 
CEF4: 
CEP4: 
CEF4: 
72 


CEF4 


CEF?7: 
CEF9: 
CEFB: 
CEFE: 
:A2 
ed 
230 
:A2 
28D 
CFOC: 
CFOF: 
CFL2: 
CF14:; 
CF16: 
*2C 
CFIA: 
CFID: 
CFLF: 
785 
284 
CF25: 
291 
CF29: 
CF2A: 
CF2C: 
CF2E: 


CFO0 
CFO2 
CFO5 
CFO? 
CFO9 


CFl? 


CF21 
CF23 


CF27 


me 


85 


AD 
29 


AD 


85 
AD 


60 


10 
A9 
cD 
FQ 


2G 
AD 


FO 
h8 


2C 
AO 
AY 


Bi 


C8 
DO 
E6 
ne) 


EF 
32 


FB 
O04 
02 
32 


7B 
28 
FB 
29 
FB 
25 


12 
3D 
06 
B3 
36 
03 
1} 
02 
OB 
B3 
BO 
B3 
06 
Ol 


81 
81 
00 
F8 
37 
36 
46 
36 


F9 
37 
F5 


CED4 
CD 


O4 


CRE4 


CEE4 


07 


07 


05 


co 
CF36 


FB 
CF36 


co 
CFO9 


FB 

co 

FB 
CF1? 


co 
co 


CF25 


182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
ay? 
233 
234 


* 


PSETUP EQU 
JSR 
LDA 


STA 


1S80 


* 


LDA 

AND 

BEQ 

LSR 
* 


* 
FULL80 
#255 
INVFLG 


MODE 
#M.VMODE 
PSETUPRET 
INVFLG 


PSETUPRET EQU * 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


OLDBASL 
BASL 
OLDBASH 
BASH 
OURCV 
CV 


;SET FULL 80COL WINDOW 


;ASSUME NORMAL MODE 


;=>1T'S NORMAL 
>MAKE IT INVERSE 


;OET UP BASE ADDRESS 


szet user's cursor vertical 
;and set it up 


RARAEKKRREKREKEEREKKERKKRKRKKRKKRKKKKKKR KKK KKK 


COPYROM is called when the video firmware is 


initialized. 
in for reading, 


language card. 


OPYROM BIT 
BPL 
LDA 
CMP 
BEQ 
LDX 
BIT 
BMI 
LDX 
STA 
BIT 
LDA 
CMP 
BEQ 
INX 
BIT 
BIT 
LDY 
LDA 
STA 
SITY 
COPYROM2 LDA 
STA 
INY 
BNE 
INC 


BANK2 


WRTENBL 


RDLCRAM 
ROMOK 

# GOODF8 
F8VERSION 
ROMOK 

#3 

RDLC BNK2 
BANK2 

#SB 
F8VERSION 
Scog0 
F8VERSION 
#GOODF8 
WRTENBL 


$C08 1 
$C08 1 
#S0 

SEB 
CSWH 
CSWL 
(CSWL),Y 
(CSWL),Y 


COPYROM2 
CSWH 


k 
k 

* If the language card is switched 
* it copies the F8 ROM to the 

* language card and restores the state of the 
k 

k 

C 


sis the LC switched in? 

3=>no, do nothing 

syes, check SF8 RAM 

sdoes it match? 

;=> assum ROM is there 
sindicate hank 2, RAM write enabled 
sis it bank 2? 

;=>yes, we were right 

sno, bank 1, RAM write enabled 
twrite to see if LC is 

swrite protected (read RA‘) 
sdid it change? 


;=>yes, write enabled 

;else indicate write protect 
;read ROM, write RAM 

;twice is nice 

snow copy ROM to RAM 


shooks set later 
sget a byte 


sand move it 


snext page 
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0000: 


0000: 
0000: 
0000: 
0000: 


S 


0000: 
0000: 
0000: 
0000: 
0000: 
0000: 


0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 


0000 


0001 


0000 


F800 
c1a0 
C300 
c800 


0001 


F800 
2000 


0000 
0001 
0020 
0021 
1022 
0023 
0024 
0025 
0026 
0027 
0028 


TEST FOU O 


LST On,A,V 
IROTEST EQU 1 

MSB ON sSET THEM HIBITS 

DO TEST 
F8ORG EQU $1800 
IOADR EQU $2000 ;For setting PR# hooks 


C1ORG EQU $2100 
C30RG EQU $2300 
C8ORG EQU $2800 
ELSE 
F8ORG EQU) S$F800 
CLORG FOU $cl1o0 
C30RG FQU $C300 
C80ORG EOU $C800 
FIN 


KEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEK 


x 

* APPLE II 

* MONITOR II 

x 

* COPYRIGHT 1978, 1981, 1984 BY 

* APPLE COMPUTER, INC. 

x 

* ALL RIGHTS RESERVED 

x 

* S. WOZNIAK 1977 

* A. BAUM 1977 

* JOHN A NOV 1978 

* R. AURICCHIO SEP 1981 

* E. BEERNINK 1984 

* 

APPLE2E EQU 1 ;COND ASSM/RRAOY81 

x 

REKKEKEKKKEKKERREKEKEKRKEAEKKEKKARKEKKSE 
ORG F80RG 
OBJ $2000 


KEKKKKKKKKEKEEKRKEKKEKKEREKEEKKKEKK KEE 
* 


* Zero Page Equates 
x 


Loco FQU $00 svector for autost from disk 
LOC 1 EQU. S01 

WNDLFT EQU $20 ;left edge of text window 
WNDWDTH EQU $21 ;width of text window 
WNDTOP EQU $22 ;top of text window 

WNDBTM EQU $23 sbottomtl of text window 

CH FOU $24 ;cursor horizontal position 
CV EQU $25 s;cursor vertical position 
GBASL EQU $26 slo-res graphics base addr. 
GBASH EQU $27 

BASL EQU) $28 ;text base address 
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F8OO0: 029 


F800: OO2ZA 
FBOO: 0028 
F800; VO2C 
FBO0: VO2C 
FBO0: QA2D 
FSOU: AM? 1) 
F800: DOZE 
F800: DOZE 
F800: OODE, 
FROO: OO2F 
F800: QO2F 
F800: NO30 
F800: GO 
FBOO: 1032 
FR0U: VO33 
F800: O44 
F800: 0035 
F800: 0036 
F800: 0037 
F800: 0038 
F800: 0039 
F800: ANIA 
F8O0: 0036 
F800: OO3C 
F800: OO3D 
F800: NO3E 
F800: OO3F 
F800: ON40 
F800: 0041 
F800: 0042 
F800: O43 
F800: OO44 
F800: ONO44 
FROO: A045 
F800: ANAS 
F800: 0046 
F800: 0047 
F800: 0048 
F800: A049 
F800: NO4k 
F800: OO4F 
F800: 

F800 : HAS 
F800: 

F800: 200 
F800: 

F800: 

F800: 

FROD: O3FO 
F800: O3F2 
F800: O3F4 
F800: O3F5S 
F800: O3F8 
{yf 


60 
‘on 
62 
43 
64 
65 
66 
67 
68 
69 
70 
7) 
7? 
73 
74 
rap) 
76 
77 
78 
49 
80 
®1 
B82 
83 
84 
85 
86 
87 
88 
89 
90 
91 


BASH FOU $29 
BAS21, Fou S2A 


BAS2H BOW $28 
H2 ROU: S26 
LMNEM KOU $2 
V2 EQU $20 
RMNEM EOU $2p 
MASK EQU S2k 
CHKSUM KOU SOF 
FORMAT EOU S2E 
LASTIN EOU S2F 
LENGTH EQU  S2F 
COLOR ROU S30 
MODE FOU $3] 
INVFLG EQU $32 
PROMPT EOU $33 
YSAV KOU $34 
YSAV] kQU $35 
CSWL ENU «6S 36 
CSWH EQU $37 
KSWL ROU =S38 
KSWH ROU? 33:9 
PCL FOU SBA 
rick BOU S3B 
ALL KOU $3c 
AlH EQU $3D 
A2L FOU SOE 
A2H ROU SOF 
ASL ROU $40 
A3H FOU $44 
ASL KOU $4? 
ASH EOU $43 
ASL EOU S44 
MACSTAT FOU $44 
A5H EOU $45 
ACC FOU $45 
XREG FOU $46 
YREG FOU $47 


STATUS EQU $48 
SPNT FQU $49 


RNDL FQU S4E 
RNDH EOU S4F 

* 

PICK KOU $95 

* 

IN FOU $0200 
* 


* Page 3 vectors 

* 

BRKV EQU = SO3FO 
SOFTEV EQU  SO3F2 
PWREDUP EQU SO3F4 
AMPERV EQU SO3F5 
USRADR EQU SO3F8 


stemp hase for scrolling 


stemp for lovres graphics 
stemp for mnemonic decoding 
;temp for lo-res graphics 
;temp for mnemonic decoding 
scolor mask for Jlo-res zr. 
stemp for opeode decode 
stemp for opcode decode 
:temp for tape read csum 
sCemp for opcode decode 
seolor tor lo-res graphics 
sMonitor mode 
snornal/inverse(/ftlash) 
;prompt character 

sposition in “Monitor command 
stemp for Y register 
seharacter output hook 


scharacter input hook 
;temp for program counter 


;Al-AS are Monitor temps 


;smachine state for hreak 


sAce after break (destrovs ASH) 
3X reg after break 

*Y reg after break 

;P rez after break 

°SP after break 

srandom counter Low 

srandom counter high 


sCONTROL-U character 


;input butfer for GRETLN 


svectors here after break 

svector for warm start 

*THLS MUST = EOR #SA5 OF SOFTEV+1 
;sAPPLESOFT & EXIT VECTOR 
;Applesoft USR function vector 
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F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F300: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 
F800: 


F800 
F801 
F802 


F806 


:4A 


:08 
:20 47 F8 
F805: 


:A9 OF 


O3FB 
O3FE 


9400 
07 F8 


0000 


coo0 


coo0o0 
C006 
C007 
colo 
COIF 
co20 
C030 
c050 
co51 
c052 
C053 
C054 
co55 
C056 
CO57 
c058 
c059 
CO5A 
CO5B 
CO5C 
cO5D 
CO5E 
CO5F 
C060 
C064 
C070 


C3FA 
C47C 


C567 
C5D1 
C5SAA 


CFFF 
E000 
£003 


105 


107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
Li? 
118 
119 
120 
12) 
122 
123 
124 
125 
126 
127 
128 
129 
130 
13) 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


NMI 
IRQLOC 
SS 
LINE 


MSLOT 
* 


LOADR 


ss 
KBD 


SLOTCXROM EQU $C0O06 
INTCXROM EQU $COO07 


KBDSTRB 
RD80VID 
TAPEOUT 
SPKR 
TXTCLR 
TXTSET 
MIXCLR 
MIXSET 
LOWSCR 
HISCR 
LORES 
HIRES 
SETANO 
CLRANO 
SETANIL 
CLRANI 
SETAN2 
CLRAN2 
SETAN3 
CLRAN3 
TAPEIN 
PADDLO 
PTRIG 

* 

IRQ 
IROFIX 
* 
XHEADER 
XREAD 
WRITK2 
Ss 
CLRROM 
BASIC 
BASIC2 
* 


PLOT 


EQU SO3FB ;NMI vector 

EOU SO3FE ;Maskable interrupt vector 
FOU $0400 sfirst line of text screen 
EQU SO7F8 ;current user of $C8 space 
DO TEST 

ELSE 

EQU = $coOnd 

FIN 

EQU $scono 


senable slots 1-7 

;swap out slots for firmware 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EOU 
EQU 
FOU 
EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$cO10 
SCOIF 
$c020 
$C0 30 
$c050 
$co51 
$C052 
$c053 
$c054 
$co55 
$C056 
$C057 
$c058 
$c059 
SCOSA 
SCO5B 
$CO5C 
SCO5D 
SCOSE 
SCOSF 
$c060 
$CU64 
$c070 


EQU 
EQU 


C30RG+SFA ;1IRQ entry in $C3 page 
C30RG+S17C ;Restore state at IRQ 


EQU 
EQU 
FQU 


C3ORG+$267 
C30RG+$2D1 
C3ORG+S2AA 


EQU 


EQU 
EQU 


SCFFF 
SEOO0 
$E003 


LSR A 
PHP 
JSR 
PLP 
LDA 


sY-COORD/2 

-SAVE LSB IN CARRY 

*CALC BASK ADR LN GBASL,H 
;RESTORE LSB FROM CARRY 
;MASK SOF IF EVEN 


GBASCALC 


#SOF 
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F808 


FBOA: 


FBOC 


F80EF: 
F810: 
729 
F814: 
F816: 
F818: 


F812 


290 
69 
285 
Bl 
45 


51 
9] 
60) 


F819: 


F819: 


F81C 


F&IE: 
:C8 


FR 20 
F821 
F824 


F826: 
248 
FR29: 
268 
Pip ae 
F82F: 
Fo3l: 


F828 


F82C 
F82D 


an 
204 
BO 


220 
790 
69 
20 


90 
60 


F832: 


F832 
F&34 


2A0 


:D0 
F836: 
F838: 


AQ 
BS 


FR3A: 


FARIA: 
EHC: 
F83E: 
F840: 
88 


F843 


FR44: 
F846: 


AQ 
AY 
85 
20 


19 
60) 


FR47: 


FR47 
FR4R 
F349 
F&4R 
F841) 


F&4EF: 
229 
190 
F854: 
F856: 
r0A 
204 


F850 
F852 


F358 
F859 
F35A 
FH5SC 
F85E 


248 
t44 
i 
09 


235 
68 


69 
85 


205 


285 


760 


F35F: 


FRSF 


Ye) 


:A5 


O02 
EO 
ral 
26 
30 
Pal 
26 
26 


are) 
2G 
1] 


OF 
F6 
On| 


OO 


a 
(12 
ae 
2D 


2 
OO 
30 
2k 


3 
O4 
27 
13 
Q2 


7¥ 
26 


26 
) 
— 


34) 


FR 


F8 


FB 


F80C 


FR31 


FRIC 


F826 


F838 


Fa3C 


F856 


146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
tis Be 
158 
159 
160 
16] 
1A2 
163 
164 
165 
166 
16? 
168 
169 
170 
eal 
ee 
173 
174 
175 
176 
177 
178 
179 
1380 
18] 
fe 5. 
1R3 
184 
145 
186 
137 
13s 
189 
190 
191 
192 
P93 
194 
195 
196 
197 
198 
199 


RTMASK 
PLOT] 


* 
HLISF 
HLINEI 


VLINEZ 
VLINE 


RTS] 
* 
CLRSCR 


CLRIOP 
CLRSC2 


+ 


CLRSCY 


* 


(RASCALC PHA 


GBC ALC 


* 
NXTCOL 


BCC 
ADC 
STA 
LDA 
EQR 
AND 
FOR 
STA 
RTS 


JSR 
CPY 
BCS 
INY 
JSR 
BCC 
ADC 
PHA 
JSR 
PLA 
Coe 
BCC 
R&S 


LDY 
BNE 
LDY 
a Bh ¢ 


LDY 
EDA 
STA 
JSR 
DEY 
BPL 
RTS 


LSR 
AND 
ORA 
STA 
PLA 
AND 
BCC 
ADC 
STA 
ASL 
ASL 
ORA 
STA 
RIS 


LDA 


RTIMASK 
F&SEO ;MASK SFO IF ODD 
MASK 
(GBASL),Y  ;DATA 
COLOR ; XOR COLOR 
MASK >; AND MASK 
(GBASL),Y 3 XOR DATA 
(GBASL),Y 3 TO DATA 
PUL ;PLOT SQUARF 
H2 ; DONE? 
RTS1 ; YES, RETURN 
> NO, INCR INDEX (X-COORD) 
PLOT | ;PLOT NEXT SQUARE 
HILINEL sALWAYS TAKEN 
£S0O] ;NEXT Y-COORD 
; SAVE ON STACK 
POLE + PLOT SOUARE 
V2 ; DONE? 
VLINEZ 7 NO, LOOP s 
fS2F sMAX Y, FULL SCRN CLR 
CLRSC2 ; ALWAYS TAKEN 
£32? sMAX Y, TOP SCRN CLR 
V2 ;STORE AS BOTTOM COORD 
FOR VLENE CALLS 
#$27 sRIGHTMOST X=-COORD CCOLIMN) 
#SO0 ;TOP COORD FOR VLINE CALLS 
COLOR ‘CLEAR COLOR CBLACK ) 
VILINE DRAW VILINE 
;NEXT LEFTMOST X-COORD 
CLRSCY SLOOP UNTIL DONE. 
SFOR [INPUT OODEFGH 
A 
#SO3 
1S04 SGENERATE GBASHSQUQOULEG 
;AND GBASL=HDEDEQOO 
#518 
GBCALC 
#STF 
GBASL 
A 
A 
GBASTI, 
GBASL 
COLOR s [INCREMENT COLOR BY 3 
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F861:18 
F862 :69 
F864 :29 
F866:85 
F868:0A 
F869:0A 
F86A:0A 
F86B:0A 
F86C:05 
F86E:85 
F870:60 
F871: 

F871:4A 
F872 :08 
F873:20 
F876:B1 
F878:28 
F879:90 
F8/7B:4A 
F87C:4A 
F87D:4A 
F87E:4A 
F87F:29 
F881 :60 
F882: 

F882: A6 
F884: A4 
F886:20 
F889:20 
F88C: Al 
F88E:A8 
F88F:4A 
F890 :90 
F892:6A 
F893: BO 
F895:C9 
F897: FO 
F899:29 
F89B:4A 
F89C:AA 
F89N:BD 
F8A0 :20 
F8A3:D0 
F8A5: AO 
F8A/7:A9 
F8A9:AA 
F8AA:BD 
F8AD:85 
F8AF: 

F8AF: 

FSAF: 

F8AF: 

F8AF: 

F8AF: 


03 
OF 
30 


30 
30 


47 
26 


04 


OF 


3A 
3B 
96 
48 
3A 


Og 


10 
A2 
Oc 
87 


62 
79 
04 
80 
00 


A6 
2E 


F8 


F87F 


FD 
F9 


F89B 


F8A5 


F8A5 


F9 
F8 
F8A9 


F9 


200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 


CLC 
ADC #$03 
SETCOL AND #SOF ;SETS COLOR=17*A MOD 16 
STA COLOR 
ASL A ;BOTH HALF BYTES OF COLOR EQUAL 
ASL A 
ASL A 
ASL A 
ORA COLOR 
STA COLOR 
RTS 
x 
SCRN LSR A ;READ SCREEN Y-COORD/2 
PHP ;SAVE LSB (CARRY) 
JSR GBASCALC ;CALC BASE ADDRESS 
LDA (GBASL),Y ;GET BYTE 
PLP ;RESTORE LSB FROM CARRY 
SCRN2 BCC RTMSKZ ;1F EVEN, USE LO H 
LSR A 
LSR A 
LSR A ;SHIFT HIGH HALF BYTE DOWN 
LSR A 
RIMSKZ AND #SOF ;MASK 4-BITS 
RTS 
x 
INSDS] LDX PCL ;PRINT PCL,H 
LDY PCH 
JSR  PRYX2 
JSR  PRBLNK ;FOLLOWED BY A BLANK 
LDA (PCL,X) ;GET OPCODE 
INSDS2 TAY 
LSR A ;EVEN/ODD TEST 
BCC IEVEN 
ROR A ;BIT 1 TEST 
BCS ERR ;XXXXXX11 INVALID OP 
CMP #SA2 
BEQ ERR ;OPCODE $89 INVALID 
AND #$87 sMASK BITS 
[EVEN LSR A ;LSB INTO CARRY FOR L/R TEST 
TAX 
LDA FMT! ,X ;GET FORMAT INDEX BYTE 
JSR SCRN2 ;R/L H-BYTE ON CARRY 
BNE GETFMT 
ERR LDY #$80 ;SUBSTITUTE $80 FOR INVALID OPS 
LDA #S$00 ;SET PRINT FORMAT INDEX TO 0 
GETFMT TAX 
LDA FMT2,X ; INDEX INTO PRINT FORMAT TABLE 
STA FORMAT ;SAVE FOR ADR FIELD FORMATTING 
; (O=1 BYTE, 1=2 BYTE, 2=3 BYTE) 
x 
* Move code to €1-C2 because the code 


* that tests for ROM in slot 3 must be in 


* the F& ROM. 
* 
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F8AF: 
784 
: AO 
:4C 
F8B/7: 
F8B/7: 
F8B7: 
F8B7: 
F8B7: 
F8B7: 
F8B?7: 
:8D 
F8BA: 
F8BC: 
F8BF: 
F8C2: 
:CA 
:CA 


F8 BO 
FBB2 
F8B4 


F837 


F8C4 
F8C5 


F8C6: 
F8CB8: 
:DO 


F8C9 


F8CB: 
F8CE: 
F8CF: 
F8CF: 
F8DO: 
F8DO: 
F8D3: 
F8D4: 
220 
:A2 


F8D6 
F8D9 


F8DB: 
:C4 
:C8 


F8DE 
F8EO 


F8EL: 
F8E3: 
>CO 
290 


F8E5 
F8E7 


F8E9: 
F8EA: 
FSEB: 
785 
F8FO: 
285 
2 A9 
AO 
:06 
F8FB: 
F8FD: 
:88 


F8EE 


F8F3 
F8F5 
F8F7 
F8F9 


F8FF, 


FBFF: 
69 
220 
7CA 


F901 
F903 
F906 


Ys 


A2 
BD 
DD 
pia) 


10 


88 


8D 
60 


EA 


48 
Bl 


20 


90 
A2 


68 
A8 
B9 


B9 


26 
2A 


DO 


2A 
10 
B4 


06 


05 
9¢ 
07 


F4 


EF 
07 


B2 


JA 
DA 
Ol 
4A 
2F 


Fl 
03 
04 
E2 


CO 
2¢ 
oa 
2n 
O00 
O05 
20 
2C 


F8 
BF 


ED FD 


FB 


CO 


C3 
FC 


FB 


FD 


F9 


F9 


FA 


F8CB 


F8BC 


F&BA 


F8D4 


F8DB 


F8F9 


254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
2g 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 


TAX 
ory 
LDY 
JMP 


Test slot 


On entrv Y 
ROM/bus is 


* * * FF H F 


x 


TSTROM STA 
TSTROMO LDX 
TSTROMI LDA 
CMP 
BNE 
DEX 
DEX 
BPL 
DEY 
BNF 
XTST STA 
RTS 


NOP 
x 
INSTDSP JSR 
PHA 
PRNTOP LDA 
LSR 
LDX 
PRNTBL JSR 
CPY 
LNY 
BCC 
LDX 
CPY 
BCC 
PLA 
TAY 
LDA 
STA 
LDA 
STA 
PRMNI LDA 
LDY 
PRMN2 ASL 
ROL 
ROL, 
NEY 
BNE 
ADC 
JSR 
DEX 


BAS21. 
#310 
GOTOCX 


;save ACC in X 

sand Y in scrolling temp 
scall = finish mnemonics 
soff to C100 


3 for a card containing ROM. 
If there is one, we'll not switch in our internal 
slot 3 firmware (for 80 columns). 


has a high value like SF2, so the 
read a bunch of times 


SLOTCXROM 
#2 
$0305 ,X 
CLREOL, X 
XTST 


TSTROM1 


TSTROMO 
INTCXROM 


INSDS1 


CPEL),¥ 
PRBYTE 
#50] 
PRBL2 
LENG TH 


PRNTOP 
#SO3 
#SO4 
PRNTBL 


MNEML,Y 
LMNEM 
MNEMR,Y 
RMNEM 
#500 
#S05 
RMNEM 
LMNEM 

A 


PRMN2 
fF SBF 
COUT 


Appendix B: 


;swap in slots 

scheck 2 ID hytes 

tat C305 and SC3o7 

swith two bytes that are same 


;check next ID byte 


Sif ROM ok, exit with B= 
;swap internal ROM 
sand return there 
sline things up 

sGEN FMT, LEN BYTES 

sSAVE MNEMONIC TABLE [NDEX 


sPRINT 2 BLANKS 


sPRINE INST (1-3 BYTES) 
;IN A 12 CHR FERLD 


;CHAR COUNT FOR MNEMONIC [INDEX 


VRECOVER MNEMONIC INDEX 


sFETCH 3-CHAR MNEMONEC 
> (PACKED ENTO 2-BYTES) 


<SHIFT 5 BITS OF CHARACTER INTO A 


CCLEARS CARRY) 


sADD "2?" OFFSET 
;OUTPULT A CHAR OF MNEM 


Apple Tle Morutor ROM Listing 


F9()7 
F909 


F90C: 
FOOE: 
F91LO: 
: FO 
:06 
F916: 
F918: 
F9LB: 
FOIE: 
: FO 
220 
:CA 
: DO 
F929: 
:88 


F912 
F9L4 


F921 
F923 
F926 
F927 


FO2A 


FO2B: 
F92D: 
F930: 
:C9 
F934: 
290 
£20 
F93B: 
F93C: 
F93D: 
:C8 
F940: 
720 
:BA 
:4¢ 
F948: 

:A2 
FO4A: 
$20) 
FO4F: 
: DO 
2:60 
F953: 
F953: 
F954: 
F956: 
F958: 
F959: 
FO5SB: 
F9SC: 
F95E: 
F960: 
F961: 
F962: 
F962: 
F962: 
F962: 


F932 


F936 
F938 


F93F 
F941 
F944 
F945 
F948 
F94C 


F950 
F952 


: DO 
720 


A4 
A2 
KO 


90) 
BD 
20 
BD 


30 
20 
AS 
Bl 
AA 


E8 
BO 


AY 


CA 


EC 
48 
Ze 
06 
03 
Ic 
2E 
OE 
B3 
ED 
B9 
03 
ED 


K7 
DA 
2E 
F8 
3A 
F2 
56 


O01 


DA 
DA 
03 
AO 
ED 


F8 


2F 
3B 


01 


3A 
Ol 


FRF5 
F9 


F930 
F926 
F9 
FD 
F9 
F926 
FD 
FILO 


F914 
FD 


F92A 
F9 


F940 


FD 


FD 


FD 


FO4A 


F95C 


F961 


308 
309 
310 
311 
312 
349 
314 
315 
316 
317 
313 
319 
320 
32 1 
322 
523 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
5 is Bl 
352 
353 
354 
355 
356 
357 


358 ; 


359 
360 
361 


PRADR 1 


PRADR2 


PRADR3 


PRADR4 


PRADRS 


RELADR 


PRNTYX 
PRNTAX 
PRNTX 


PRBLNK 
PRBL2 
PRBL3 


* 


PCADJ 
PCADJ2 
PCADJ3 


PCADJ4 


RTS2 


bi 


; FMT] BYTES: 


; IF Y=0 
; IF Y=1 


BNE 
JSR 
LDY 
LDX 
CPX 
BEQ 
ASL 
BCC 
LDA 
POR 
LDA 
BEQ 
JSR 
DEX 
BNE 
RTS 
DEY 
BMI 
JSR 
LDA 
CMP 
LDA 
BCC 
JSR 
TAX 
INX 
BNE 
INY 
TYA 
JSR 
TXA 
JMP 


LDX 
LDA 
JSR 
DEX 
BNE 
RTS 


SEC 
LDA 
LDY 
TAX 
BPL 
DEY 
ADC 
BCC 
INY 
RTS 


PRMN1 
PRBLNK ;OUTPUT 3 BLANKS 
LENGTH 
#506 -CNT FOR 6 FORMAT BITS 
#SO3 
PRADRS >LF X=3 THEN ADDR. 
FORMAT 
PRADR3 
CHARI-1,X 
COUT 
CHAR2-1,X 
PRADR3 
COUT 
PRADRI 
PRADR2 
PRBYTE 
FORMAT 
i SE8 sHANDLE REL ADR MODE 
(PCL),Y >SPECIAL (PRINT TARGET, 
PRADR4 ; NOT OFFSET) 
PCADJ3 
;PCL,PCH+tOFFSET+1 TO A,Y 
PRNTY X :+1 TO Y,X 
PRBYTE sOUTPUT TARGET ADR 
* OF BRANCH AND RETURN 
PRBYTE 
#503 *BLANK COUNT 
#SAO :LOAD A SPACE 
COUT ;OUTPUT A BLANK 
PRBL2 ;LOOP UNTIL COUNT=0 
;0=1 BYTE, l=2 BYTE, 
LENGTH : 2=3 BYTE 
PCH 


;TEST DISPLACEMENT SIGN 
PCADJ4 * (FOR REL BRANCH) 
;EXTEND NEG BY DECR PCH 
PCL 
RTS2 ;PCL+LENGTH(OR DISPL)+1 TO A 
; CARRY INTO Y (PCH) 


XXXXXXYO INSTRS 
THEN LEFT HALF BYTE 
THEN RIGHT HALF BYTE 
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F962: 
F962: 
“4 
220 


F962 
F963 


F964: 
F965: 
F966: 
780 
204 
F969: 
703 
oe 


F967 
F968 


FI6A 
F9Y6B 


F96C: 
F96D: 
FI6E: 
FI6F: 
204 
90 
204 
22) 


F970 
F971 
F972 
F973 


F974: 
F975: 
0 
2:30 


F976 
F977 


F978: 
F979: 
FOS A? 
F973: 
F97C: 
F97DN: 


FY7E 


F980 
F981 
F982 
F983 
F984 
F985 
F986 


100 


54 
30) 
OY 


90) 


94 
33 
OD 
80 


54 
33 


O4 
90) 
04 
20 
54 
38 


:O0b 
FO7F: 
204 
:90 
200 
Ze 
244 
233 
:OD 
F987: 
F988: 
F989: 
FORA: 
FO8B: 
F98C: 
F98D: 
FO8E: 
FO8F: 
F990: 
F991: 
F992: 
F993: 
F994: 
F995: 


B80 


362 ; 
363 ; 
364 FMT] 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
555 
376 
377 
378 
379 
380 
38 1 
382 
383 
IRS 
3385 
386 
387 
386 
339 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
4 
40? 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 


DFB 
DFB 
DFR 
DFR 
DFR 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
NF is 
DFB 
DEB 
DEB 
DEB 
DFB 
DFR 
DFB 
DFB 
DFB 
DFB 
DFR 
DEB 
DEB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DF 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
DFB 
DFB 
DFB 
DFB 


(X= LNDEX) 


SO4 
$20 
$54 
$30 
Son 
$80) 
SOS 
$99 
$03 
$22 
854 
$33 
SOD 
SB0 
S4 
$90 
Si4 
320) 
$534 
$33 
SOD 
$8n 
SU4 
$9) 
SU4 
$20 
$54 
S3B 
SOD 
$80 
SO4 
$90 
SOO 
$22 
S44 
$33 
SON 
$C8 
$44 
$00 
$1} 
$22 
$44 
$33 
SOD 
$C8 
S44 
$A9 
$0] 
$22 
$44 
$33 
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F996 


F99A 


FO9E 


F9AO 
F9A) 
F9A2 
F9A3 
F9A4 
F9A5 


F9A6 
F9A/ 
F9A8 


F9AA 
F9OAB 
F9AC 


F9AD: 
291 


F9AE 


F9OAF: 
286 
274A 
7385 
:9D 
7 AC 
F9B5: 
> AC 
:A3 
:A8 
FOB: 
:D9 
FOBB: 
FYBC: 
FOBD: 
FOBE: 
:00 
F9CU: 
:8A 
F9C2: 
$23 
F9C4: 
F9C5: 
F9C6: 
:Al 
F9C8: 


F9BO 
FOBL 
F9B2 
F9B3 
FOB4 
F9B6 
F9B7 
F9B8 


FOBA 


FOBF 


F9C1 


F9C3 


F9C/ 


70D 
F997: 
F998: 
F999; 
701 
F9O9B: 
F99C: 
F99D: 
0D 
FOOF: 
204 
790 
:26 
234 
:87 
:9A 
F9A6: 

F9A6: 

F9A6: 

:00 
Zi 
81 
FOA9: 
200 
:00 
259 


04 
90 


22 
44 
33 


80 


82 


4D 


92 


Ad 


AA 
00 
D8 
AS 
AS 
1C 
1c 
5D 
1B 


9D 


416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
44) 
442 
443 
4a 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 


. 
+ 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
DFB 
DFB 
DFB 


» ZZXXXYO1 


FMT2 


CHAR] 


CHAR2 


MNEML 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


SOD 
$80 
S04 
$90 
$01 
$22 
S44 
$33 
SOD 
$80 
$04 
$90 
$26 
$31 
$87 
S9A 


INSTR'S 


$00 ;ERR 

$21 ; [MM 

$81 ; Z-PAGF 

$82 - ABS 

$00 ; IMPLIED 

$00 ; ACCUMULATOR 
$59 :(ZPAG,X) 
S4D :(ZPAG),Y 
$91 ;ZPAG ,X 

$92 ;ABS,X 

$86 ;ABS,Y 

S4A (ABS) 

$85 ;ZPAG,Y 

S9D ; RELATIVE 
SAC cogs 

SA9 eae 

SAC mt 
$A3 anger 
SAB re 
SA4 a 
$D9 ey? 
$00 

$D8 oye 
SA4 ers 
SA4 eas 
$00 

$1C 

S8A 

$1C 

$23 

$5D 

$8B 

$18 

SAl 

$9D 
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10] 


F9C9:BA 470) DFB S8A 


FICA: 1D 471 DFB SID 
FICB:23 472 DFB $23 
F9CC:9D 473 DFB S9D 
FICD:8B 474 DFB S8B 
FO9CE:1D 475 DFB SID 
FICF:Al 476 DFB SAL 
F9NO:00 477 DFB $00 
F9NL:29 478 DFB $29 
F9D2:19 479 DFB $19 
F9D3: AE 480 DFB SAE 
F9D4 :69 481 DFB $69 
FYD5S:A8 482 DFR SA8 
F9D6:19 483 DFB $19 
F9D7:23 484 DFR $23 
F9D8B:24 485 DFR $24 
FIDI:53 486 DFR $53 
FODA!1B 487 DFR SIR 
FODB:23 488 DFB $23 
FODC:24 489 DFB $24 
FOND :53 490 DFB $53 
FODFE:19 49] DFB $19 ; (A) FORMAT ABOVE 
FODF:AI 492 DFR SAI 
FIEON 200 493 DFR $00 
FORLSLA 494 DFB SIA 
FYFE2:5B 495 DFB SSB 
FIE3:35B 496 DFB SSB 
FYR4:A5 497 DFB SA5 
F9R5:69 498 DFB S69 
FYE6:24 4AYY DFB $24 » (€B) FORMAT 
F9YR7 224 500 DFR $24 
F9E8: AE 501 DFR SAE 
FIED: AE $02 DEB SAE 
FIFA: A8 503 DFB SA8 
FOEB:AD 504 DFB SAD 
FYFC:29 505 NFB S29 
FIED S00 506 DFK Soo 
FIEE:7C 507 DFB $7C ; (C) FORMAT 
FYRF 200 S08 DFB Sav 
FOFO:15 509 DFB $15 
FYFL IC 510 DFB S9YC 
FYF2 26D 511 DFR Sé6l) 
FYF3:9C ¥ 12 DFB $9C 
FOF4:A5 23 DFR SA5 
F9F5S:69 1A DFB S69 
FOF6:29 515 DFB $29 - (D) FORMAT 
FYF7 254 516 DFB S53 
FOF8:84 S517 NDFB $34 
FIFI: 13 518 DEB S13 
FOFA: 34 519 DFR $34 
FOFB:11 520 DFB SIt 
FOFC:A5 521 DFB SAS 
F9FD:69 922 DFR S69 


FOFE:23 523 DFB $23 > CE) FORMAT 
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FOFF:A0 
FA0O : D8 
FAO] :62 
FAQ2:5A 
FAO03:4 
FA04:26 
FAOS :62 
FA06:94 
FAQ7 2:88 
FAQ8&:54 
FA09:44 
FAQA:C8 
FAOQB:54 
FAOC:68 
FAOD:44 
FAOE: £8 
FAOF :94 
FALO:00 
FAL1:B4 
FAL2:08 
FAL3:34 
FAL4:74 
FAL5: B4 
FA16:28 
FA17:6E 
FAL8:74 
FAL9:F4 
FALA:CC 
FAI B:4A 
FALC:72 
FALD:F2 
FALE: A4 
FALF:8A 
FA20:00 
FA21:AA 
FA22:A2 
FA23:A2 
FA24:74 
FA25:74 
FA26:74 
FA27:72 
FA28:44 
FA29:62 
FA2A: B2 
567 
FA2B:32 
FA2C : B2 
FA2D:00 
FA2E:22 
FA2F:00 
FA30:14 
FA31:1A 
FA32:26 
FA33:26 


DFB 


524 
525 MNEMR 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540) 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
555 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 


$62 
568 
569 
570 
571 
572 
573 
574 
575 
576 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
NFB 
DFB 
DFB 
DFB 
DFB 
DFB 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


SAO 
$D8 
$62 
SSA 
$48 
$26 
$62 
$94 
$88 
$54 
S44 
SC8 
$54 
$68 
$44 
SE8 
$94 
$00 
$B4 
$08 
$84 
$74 
SB4 
$238 
SOE 
$74 
SF4 
$CC 
S4A 
$72 
SF2 
SAA : (A) FORMAT 
SBA 
$00 
SAA 
$A2 
$A2 
$74 
$74 
$74 > (B) FORMAT 
$72 
S44 
$68 


$32 
$B2 
Soo 
$22 ; (C) FORMAT 
$00 
SLA 
SIA 
826 
$26 
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L033 


FA34: 
s7'2 


FA35 


FA36: 
:C8 
C4 
:CA 
FA3A: 
FA3B: 
FA3C: 
FA3D: 
:A2 
:C8 
FA4O: 
FA4O: 
FASO: 
FA40: 
:A5 
74C 
FA4?7: 

78D 
FA4A: 
FA4C: 
FASC: 
FA4D: 
FASO: 
785 


FA3? 
FA38 
FA39 


FA3E 
FA3F 


FA42 
FA44 


FA4? 


FAS! 


FA53: 
785 
:6C 
FASS: 
FA59: 
FASC: 
FASF: 
D8 
:20 
FA66: 
FA69: 
a 8 
FA6F: 
> AD 
: AQ 
20 
FA7A: 
FA7B: 
FA7E: 


FA54 
FA56 


FA62 
FA63 
FA6C 
FA72 


FA?75 
FA?? 


FA81 
FAS2 
FA85 
FA8A 


FA92 
FA94 


104 


72 


88 


26 
48 
44 
44 


85 


85 


28 
20 
68 


68 


20 
20 
4c 


20 
20) 


AD 


EA 
AD 
2G 


> DS 
220 
> AD 
FA88: 
:CD 
FA8D: 
FA8F: 


49 


nO 
AD 


>DO 
:AY 


45 
45 
FA 


06 
45 


4c 


JA 


3B 
FU 


82 
DA 
65 


B4 
ZE 
93 
89 
58 
5A 
U9 
B4 


FF 
10 


3A 
F3 
AS 
F4 
Li? 
F2 
OF 
EO 


C3FA 


C3 


co 


FF 


03 


F8 
FA 
FF 


FE 
FB 
RE 
FE 
co 
co 


FB 


CF 
co 


FF 
03 


(3 
FAA 

03 
FAAY 


577 
578 
579 
580 
581 
582 
383 
584 
585 
586 
587 
588 
589 
5390 
591 
592 
593 
394 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
b13 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 


* 


NEWLRO 
* 


OLDLRQ 


* 


NEWBREAK STA 


* 
BREAK 


* 
OLD BRK 


RESET 


INITAN 


NEWMON 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


EQU 


STA 
LDA 
JMP 


STA 


PLP 
JSR 
PLA 
STA 
PLA 
STA 
JMP 


ok 
JSR 
IMP 
CLD 
JSR 
JSR 
JSR 
JSR 
LDA 
LDA 
LDY 
JSR 
NOP 
LDA 
BIT 
CLD 
JSR 
LDA 
FOR 
CMP 
BNE 
LDA 
BNF. 
LDA 


$72 
$72 
$88 
$c8 
SC4 
SCA 
$26 
$48 
S44 
S44 
SA2 
$c8 


SCUFA 
$45 


$45 
NEWIRO 


;ne 


3(s 
sfo 
3O 


SETSLOPC XROM 


ACC 


SAV1 
PGI: 


PCH 
( BRKV ) 


INSDS 1 
RGDSP 1 
MON 


SETNORM 
INIT 
SETVEID 
SETKBD 
SETANO 
SETANI 
#9 
GOTOCX 


CLRROM 
KBDSTRB 


BELL. 
SOF TEV+ 1 
#SAS 
PWREDUP 
PWRUP 
SOF TEV 
NOF LX 
#SEO 
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35a 


ie) 


. 
+ 


3B 


a 
1G 


3D 


Cc 
3D 
s/ 
; 


’ 


5 
ae | 
7A 
, 
4 
? 
; 
’ 
7 
4 


. 
* 


(D) FORMAT 


(E) FORMAT 


w IRQ entry 


hould never he used) 
r those who save A to $45 
to iaterrupt handler 


sForce in slots 
ve accumulator 


AVE REG'S ON BREAK 
INCLUDING PC 


PKV WRITTEN OVER BY DISK BOOT 


RINT USER PC 

AND REGS 

QO TO MONITOR (NO PASS GO, NO S2001) 
QO fHIS FIRST THIS TIME 


; ANO = TTL LO 


ANL = TIL LO 
ONDE=INIT/RRADGS | 

O APPLEZE INET/RRAODOS] 
RRAUGBI 

TURN OFF EXTNSN ROM 


; CLEAR KEYBOARD 


> CAUSES DELAY TF KEY BOUNCES 


= RESET HI 
FUNNY COMPLEMENT OF THR 
PWR UP BYTE ??? 
NO SO PWR IP 
YES SER Le COL START 
HAS BEEN OONE YEP? 
DOES: SOFT “ENTRY VEC WIR. POTN AL BAS LC? 


> Apple He Monitor ROM Listing 


FA96 
FA99 


FAQB: 
FA9D: 
FAA: 


FAA3 


FAA6 


FAAE 
FAB] 


FAB2: 
FAB4: 
FAB6: 
:85 
FABA: 
FABA: 
FABA: 
FABA: 
FARA: 
:C6 
7A5 
:C9 
:FO 
:8D 
FAC7: 
FAC9: 
FACC: 
FACE: 
FACF: 
:10 
:6C 
FADS: 

:EA 
FAD6: 
FAD?7: 
FAD?7: 
FADA: 
FADC: 


FAB8 


FABC 
FABE 
FACO 
FAC2 
FAC4 


FADO 
FAD2 


FAD5 


FADE 
FAEO 
FAE2 
FAE4 
FAE6 


FAF1 
FAF4 


FAF6: 
FAF9: 
FAFA: 


:CD 
: DO 


AO 
8c 
4C 


:6C 
FAA6: 

720 
FAA9: 
FAA9: 
FAAB: 
:9D 
:CA 


A2 


BD 


BO 


86 


AO 


Bl 
D9 
BO 


88 


EA 


20 
A9 
85 


:A9 
785 
7A2 
:A9 
720 
FAE9: 
FAEC: 
FAEF: 
220 
: BS 


BD 
20 
A9 


20 
E8 
30 


F3 
08 
03 
F2 
00 
F2 


60 


OS 
FC 
EF 


F7 
C8 
00 
01 


O05 
01 
01 
co 
17 
F8 
00 
Ol 
EC 


F5 
00 


BE 
45 
40 
00 
41 
FB 
AO 
ED 
1E 
ED 
BD 
ED 
4A 
DA 


E8 


03 


03 
EO 
03 
FB 


FA 
03 


07 


FB 


00 


FD 


FD 
FA 
FD 
FD 


FD 


631 
FAA3 632 
633 
634 
635 
636 
637 
638 
FAAS 639 
640 
641 
642 
643 
FAAB 644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
FAIB 656 
657 
658 
659 
FABA 660 
661 
662 
FAC7 663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
FAE4 684 


FIXSEV 


NOF IX 


CMP 
BNE 
LDY 
STY 
JMP 
JMP 


SOFTEV+1 

NOFIX ; YES SO REENTER SYSTEM 

#Y ; NO SO POINT AT WARM START 
SOFTEV ; FOR NEXT RESET 

BASIC ; AND DO THE COLD START 
(SOFTEV) ; SOFT ENTRY VECTOR 


REKKKEKKKKKKKKK KKK 


PWRUP 
SET PG3 


SETPLP 


Check 
other 


+ + * + 


SLOOP 


NXT RYT 


* 


REGDSP 
RGDSP1 


RDSP1 


JSR 
EQU 
LDX 
LDA 
STA 
DEX 
BNE 
LDA 
STX 
STA 


3 ID 
than 


LDY 
DEC 
LDA 
CMP 
BEQ 
STA 
LDA 
CMP 
BNE 
DEY 
DEY 
BPL 
JMP 


NOP 
NOP 


JSR 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
INX 
BMI 


APPLEII 

* ; SET PAGE 3 VECTORS 
#5 

PWRCON-1,X 3; WITH CNTRL B ADRS 
BRKV-1,X ; OF CURRENT BASIC 


SETPLP 

#SC8 ; LOAD HI SLOT +1 

LOCO ; SETPG3 MUST RETURN X=0 
LOC 1 ; SET PTR #H 


bytes instead of 4. Allows devices 
Disk lI's to be bootable. 

#5 ;Y is byte ptr 

LOC | 

LOC 1 

#SC0 ; AT LAST SLOT YET? 

FIXSEV ; YES AND IT CAN'T BE A DISK 
MSLOT 


(LOCO),Y  ; FETCH A SLOT BYTE 
DISKID-1,Y ; IS IT A DISK 2? 
SLOOP ; NO, SO NEXT SLOT DOWN 


; YES, SO CHECK NEXT BYTE 
NXTBYT ; UNTIL 3 BYTES CHECKED 
(LOCO) ; GO BOOT... 


CROUT ;DISPLAY USER REG CONTENTS 
#S45 ;WITH LABELS 
A3L 

#S00 

A3H 

#SEB 

#SAO 

COUT 

RTBL~251,X 

COUT 

#SBD 

COUT 

ACC+5 ,X 

PRBYTE 


RDSP1 
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FAFC: 
FAFD: 
FAFD: 
FAFF: 
220 
203 
‘Gl 
FBLIL: 
FBIL: 
FBL4: 
FB16; 
FB19: 
FBL9: 
FBIe: 
FBLE: 
FB21: 
2KA 
FR24: 
FB25: 
FB28: 
FR2A: 
FB2ZB: 
38 


FBO2 
FBO6 
FBO 


FB23 


FR2D 


FB2E: 
FB2F: 
FB2F: 
FB31: 
FB33: 
FB36: 
FB39; 
FB3C: 
FB3E: 
FB40: 
FR43: 
FB46: 
:A9 


FRB49 


FB4&K: 
FB4D: 
FB4F: 
: AO 
FB53: 
:A9 
'Bo 
FB59: 
FB5B: 
FB5D: 
FB60: 
FB60: 
FRB63: 
FR65: 
299 
288 
FB6C: 
260 


FB51 


FB55 
FB57 


FB68 
FB6B 


F B6E 


106 


60 


39 
UO 


C4 
FF 
FF 


Cl 
DO 
AD 


EA 
BD 
19 
C8 
DO 


60 


AQ 
85 


AD 
AD 
A9 
FO 
AD 


20 


85 
A9 
85 


DO 


AY 
85 
4c 


20 
AOD 
B9 


FA 
EO 
FF 
FF 
FO 


C2 
C3 
FF 


D8 
D3 
70 
Oo 


64 
04 


F8 


00 
48 
56 
54 
51 
00 
OB 
50 
33 
36 
14 
ot 
00 
20 
OC 
5F 
18 
23 
17 
22 
Z2 


58 
09 
O09 
OF 


F7 


45 

0 FF 

3C 

FO EC 
FBI 1 

| 

FF 

1)9 


CO 


CO 
FB2F 


FB25 


CO 
ca 
CO 
F B&B 
co 
CO 
F8 


FBRB4 


FC 


FC 


FE 
04 


FB65 


685 
686 
637 
688 
639 
690 
oe 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 


oxem~ DU RD Ww bo 


10 
11 


13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 


* 
PWRCON 


DISKID 


XLTBL 


x 
RTBL 


PREAD 


PREAND2 


RTS2D 


INIT 


SETTXT 


SETGR 


SETWND 


TABV 


* 
APPLELI 


STITLE 


RTS 


Dw 

DFB 
DFB 
DEB 
ASC 
EOU 
DFB 
DFB 
DFB 


DFB 
DEB 
LDA 
LDY 
NOP 
NOP 
LDA 
BPL 
LNY 
BNR 
DEY 
RTS 


LDA 
STA 
LDA 
LDA 
LDA 
LDA 
BFOQ 
LDA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDY 
BNE 
LDA 
STA 
LDA 
STA 
JMP 


JSR 
LDY 
LDA 
STA 
DEY 
BNE 
RTS 


OLDRRK 
$00 ,SE0,$45 
$20 ,SFF,S00,SFF 
$N3,SFF,S$3C 
"Apple dike 
* 
$C4 ,$C2 ,S$Cl 
SFF,SC3 
SFF,SFF,SFF 
SC1,$D8,SD9  ;REGISTER NAMES FOR REGDSP: 
SDU ,$D3 »'AXYPS! 
PTRIG STRIGGER PADDLES 
#S00 ; {NIT COUNT 
;COMPENSATE FOR LST COUNT 
PADDLO,X ;COUNT Y~-REG EVERY 12 USEC. 
RTS2D 
PREAD2 ‘EXIT AT 255 MAX 
#S00 -<CLR STATUS FOR DEBUG SOFTWARE 
STATUS 
LORES 
LOWSCR ; INIT VIDEO MODF 
TXTSET ;SET FOR TEXT MODE 
#S00 *FULL SCREEN WINDOW 
SETWND 
TXTCLR ;SET FOR GRAPHICS MODE 
MIXSET ;LOWER 4 LINES AS TEXT WINDOW 
CLRTOP 
#514 
WNDTOP ;SET FOR 40 COL WINDOW 
#S00 ;TOP IN A-REG, 
WNDLFET ; BOTTOM AT LINE $24 
#SC ;CODE=SETWND /RRA0N981 
GOTOCX 
#S18 
WNDBTM 
#S47 ;VTAB TO ROW 23 
Cy -VTABS TO ROW IN A-REG 
VTAB 
HOMF. ;CLEAR THE SCRN 
#9 
TITLE-1,Y  ;GET A CHAR 


LINE1+14,Y 


STLELE 


;PUT IT AT TOP CENTER OF SCREEN 
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FB6F: 
FB6F: 
249 
:8D 
7:60 
FB78: 

FB/8: 

:C9 


FB72 
FB74 
FB77 


FB78 


FB7A: 
> AC 


FB7C 


FB7F: 
:CO 
:DO 
:2C 
> AC 


FB81 
FB83 
FB85 
FB88 


FB8B: 
:CO 
FB8F: 
27C 
:4C 
FB97: 

238 
:4C 
FB9B: 
FB9C: 
FBOF: 
:20 
:C9 


FB8D 


FB91 
FB94 


FB97 
FB98 


FBA2 
FBA5 


FBA?7: 


FBA9 


FBAD 


FBAF: 
: DO 
FBB3: 
FBB3: 
FBB3: 
FBB3: 
FBB3: 
:06 
FRB4: 
FBRB4: 
:2C 
708 


FBB} 


FBB3 


FBB4 
FBB7 


FBB8: 
FBBR: 
FBBE: 
FBBE: 
:00 
FBCO: 
FBCO: 
FBCL: 
:48 
FBC2: 


FBBF 


FBCL 


DO 


10 


10 


FO 


A8 
B9 
20 


BO 


:C9 
FBAB: 
:c9 


90 


FO 


8D 


4C 


00 


EQ 


4A 


F3 
AS 
F4 


2C 


48 
97 
21 
CE 
EE 
Co 
EA 
cc 
E6 
E8 


15 


07 
00 


03 


03 


FB78 


FB94 
co 
FB94 


FB94 
co 
CO 
FB88 


FB94 

co 

FB 

FC 

FA 

FB 

FD 
FB97 
FB97 


FB97 
FB9B 


C006 
C007 
coL5 


FBB4 
CO 


co 
Cl 


31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4) 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 


k 


SETPWRC LDA 
EOR 
STA 
RTS 

k 

VIDWAIT FQU 
CMP 
BNE 
LDY 
BPL 
CPY 
BNE 
BIT 

KBDWALT [DY 
BPL 
CPY 
BEQ 
BIT 

NOWAIT JMP 

k 

ESCOLD SEC 
JMP 

ESCNOW TAY 
LDA 
JSR 
JSR 

ESCNEW CMP 
BCS 
CMP 
BCC 
CMP 
BEQ 


BNE 
k 


SOFTEV+1 ;ROUTINE TO CALCULATE THE 'FUNNY 


#SA5 ;COMPLEMENT' FOR ‘THE RESET VECTOR 
PWREDUP 

* “CHECK FOR A PAUSE (CONTROL-S). 
#S8D sONLY WHEN I HAVE A CR 

NOWAIT :NOT SO, DO REGULAR 

KBD -IS KEY PRESSED? 

NOWAIT >NO. 

#$93 *YES -- IS IT CTRL-S? 

NOWAIT ‘NOPE - IGNORE 

KBDSTRB *CLEAR STROBE 

KBN sWALT TILL NEXT KEY TO RESUME 
KBDWAIT ;WAIT FOR KEYPRESS 

#$83 -IS ['f CONTROL-C? 

NOWAIT “YES, SO LEAVE IT 

KBDSTRB :CLR STROBE 

VLDOUT ;DO AS BEFORE 


; INSURE CARRY SET 
ESCL 

;USE CHAR AS INDEX 
XLTBL-$C9,Y ;TRANSLATE LJKM TO CBAD 


ESCOLD -DO THE CURSOR MOTION 
RDESC “GET IJKM, ijkm, ARROWS/RRA0981 
#SCE 31S THIS AN 'N'? 

ESCOLD :'N' OR GREATER - DO IT! 

#SC9 *LESS THAN 'I'? 

ESCOLD “YES, SO DO OLD WAY 

#SCC -IS IT AN 'L'? 

ESCOLD ;DO NORMAL 

ESCNOW ;G0 DO IT 


SETSLOTCXROM EQU $C006 ;/RRKAO981 
SETINTCXROM EQU $C007 ;/RRAO981 


RDCXROM EQU 
k 


VERSION DFB 

k 

GOTOCK EOU 
BIT 
PHP 
STA 
JMP 


DFB 
DFB 
* 


ZIDBYTE DFB 

k 

BASCALC PHA 
LSR 


$COL5 »/RRAO981 

/RRAO981 
$06 ;FOR IDCHECK/RRAOQ81L 
* ;/RRAOY8] 


RDCXROM ;GET CURRENT STATE/RRAO981 
;SAVE ROMBANK STATE/RRAO981 
SETINTCXROM :SET ROMS ON/RRAOY81 


C1LORG *=DOFF TO CXSPACE/RRAO0981 
0 

0 

SEO ‘//e ROM rev 1D byte 


;CALC BASE ADDR IN BASL,H 
A ;FOR GIVEN LINE NO. 
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FBC3 
FBC5 
FBC7 


FBCA 


FBCC: 
:69 
285 
:0A 


FBCE 
FBDO 
FBD2 


FBD3: 
705 
285 
260 
FBD9: 

:C9 
FBDB: 
7 A9 
20 
> AO 
:A9 
229 
FBE9: 
788 


FBD4 
FBD6 
FBD8 


FBD9 


FBDD 
FBDF 
FBE2 
FBE4 
FBE6 


FBEC 


FBED: 
FBEF: 
FBFO: 
> A4 
791 
FRF4;: 
FBF6: 
aC 


FBFO 
FBF2 


FBF8 


FBFA: 
260) 
FBFD: 
FBFD: 
FBFF: 
:A8 


F BFC 


FCOL 


FCO2: 
:C9 
FCO6: 
CY 


FCO4 


FCO8 


FCOA: 
:C9 


FCOC 


FCOR: 
:C6 


FCLO 


FC12: 
FCL4: 
65 
:C6 
FCIA: 
C5 


FCL6 
FC13 


FCIC 


FCIE: 
:C6 
FC22: 


FC20 


108 


229 
709 
:85 
FBC9: 
:29 


90 


OA 


BO 


AD 


DO 
60 


Eb 
AS 


BO 


C9 


BO 


LO 


FO 


FO 


ee) 


10 


AS 


A5 


BO 


04 
29 


18 
O02 
7F 
28 


28 
28 


87 
Lz 
40 
A8 
co 
Oc 
A8 
30 


FS 


24 
28 
24 
24 
21 
66 


AU 
EF 


EC 
8D 
SA 
BA 
5A 
88 
oe) 
24 
E8 
21 
24 
24 
a2 
23 
DC 
25 


FBDO 


FBEF 


FC 


FC 


CO 


FBE4 


FC62 


FBFO 


FBFO 


FC62 


FC66 


FBD9 


FBFC 


FBFC 


92 BASCLC2 


99 BELLI 


104 BELL2 


109 “RTS2B 
110 * 
111 STORADV 


L13 ADVANCE 


117 RTS3 
{18 * 
119 VIDOUT 


129 BS 


134 UP 


136 
137 
138 * 


AND 
ORA 
STA 
PLA 
AND 
BCC 
ADC 
STA 
ASL 
ASL 
ORA 
STA 
RTS 


CMP 
BNE 
LDA 
JSR 
LDY 
LDA 
JSR 
LDA 
DEY 
BNE 
RTS 


LDY 
STA 
INC 
LDA 
CMP 
BCS 
RTS 


CMP 
BCS 
TAY 
BPL 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
DEC 
BPL 
LDA 
STA 
DEC 
LDA 
CMP 
BCS 
DEC 


#503 
#$04 
BASH 


#$18 
BASCLC2 
#S7F 
BASL 

A 

A 

BASL 
BASL 


#$87 
RTS2B 
#S40 
WALT 
#S$CO 
#S0C 
WAIT 
SPKR 


BELLZ 


CH 
(BASL),Y 
CH 

CH 
WNDWDTH 
CR 


#SA0 
STORADV 


STORADV 
#S8D 

CR 

ESBA 

LF 

#$88 
BELLI 
CH 

RTS3 
WNDWDTH 
CH 

CH 
WNDTOP 
CV 

RTS3 

CV 


; O<=LINE NO.<=S$17 
;ARG = OOOABCDE, GENERATE 
; BASH = QONOOOI1CD 
; AND 
; BASL = EABABOOO 


;BELL CHAR? (CONTROL-G) 
; NO, RETURN. 

= VE Soe 

s;DELAY .O1 SECONDS 


; TOGGLE SPEAKER AT 1 KHZ 
SPORE ol Ses 


-CURSOR H INDEX TO Y-REG 
:STORE CHAR IN LINE 

; INCREMENT CURSOR H INDEX 
» (MOVE RIGHT) 

“BEYOND WINDOW WIDTH? 

> YES, CR TO NEXT LINE. 

; NO, RETURN. 


;CONTROL CHAR? 

; NO, OUTPUT IT. 

, INVERSE VIDEO? 

; YES, OUTPUT IT. 

‘CR? 

5 YES« 

7LINE FEED? 

; IF 50, DO IT. 

;BACK SPACKE? (CONTROL-H) 

; NO, CHECK FOR BELL. 
;PECREMENT CURSOR H INDEX 
;LF POSITIVE, OK; ELSE MOVE UP. 
;SET CH TO WINDOW WIDTH - |. 


;CRIGHTMOST SCREEN POS) 
;sCURSOR V INDEX 


; TF TOP LINE THEN RETURN 
sDECR CURSOR V INDEX 
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FC22:A5 25 139 VTAB LDA CV ;GET CURSOR V INDEX 


FC24:85 28 140 VTABZ STA BASL ;cemporarily save Acc 
FC26:98 14) TYA sand Y 

FC27:A0 04 142 LDY #84 ;this is VTABZ call 
FC29:DO 89 FBB4 143 GOTOCX] BNE GOTOCX 3=> always perform call 
FC2B: 144 * 

FC2B:EA 145 NOP 

FC2C: 146 * 

FC2C:49 CO 147 ESCl FOR #SCO sESC '@'? 

FC2E:FO 28 FC58 148 BEQ HOME ; LF SO DO HOME AND CLEAR 
FC30:69 FD 149 ADC #SFD ;ESC-A OR B CHECK 
FC32:90 CO. FBF4 150 BCC ADVANCE ; A, ADVANCE 

FC34:FO DA FCO1ON 151 BEQ BS ; B, BACKSPACE 

FC36:69 FD 152 ANC #SFD ;ESEC-C OR D CHECK 
FC38:90 2C FC66 153 BCC LF ; C, DOWN 

FC3A:FO DE FCLA 154 BEQ UP ; D, GO UP 

FC3C:69 FD 155 ADC #SFD s;ESC-E OR F CKECK 
FC3E:90 5€ FC9C 156 BCC CLREOL ; E, CLEAR TO END OF LINE 
FC40:DO BA FBFC 157 BNE RTS3 ; ELSE NOT F,RETURN 
FC42: 158 * 

FC42; FC42 159 CLREOP EQU * ;/RRAO98) 

FC42:A0 OA 160 LDY #SA s CODE=CLREOP/ RRAO981 
FC44:D0 E3 FC29 161 BNE GOTOCX1 ;DO 40/80 /RRAO981 
FC46: 162 * 

FC46:2C 1F CO 163 NEWVW BIT RD8OVID sin 80 columns? 

FC49:10 04 FC4F 164 BPL NEWVW1 *=>not 80 columns 
FC4B:A0 00 165 LDY #50 ;Print a character 
FC4D:FO OB FC5A 166 BEQ GOTOCX3 sthrough video firmware 
FC4F:98 167 NEWVW1l TYA ;Zet masked character 
FC50:48 168 PHA ;and set up for vidwait 
FC51:20 78 FB 169 JSR VIDWAIT ;print the character 
FC54:68 170 PLA ;restore Acc 

FCS5:A4 35 171 LDY YSAV1 sand Y 

FC57:60 12 RTS 

FC58: 173 * 

FC58&: FC5S8 174 HOME EQU * ;/RRAO981 - 

FC58:A0 05 175 LDY #5 ; CODE=HOME/ RRAO981 
FC5A:4C B4& FB 176 GOTOCX3 JMP GOTOCX sdo 40/80 

FC5D: 177 * 

FCS5D:EA 178 NOP 

FCSE:EA 179 NOP 

FCSF:EA 180 NOP 

FC60:EA 18] NOP 

FC61:EA 182 NOP 

FC62: 183 * 

FC62:A9 00 134 CR LDA #S00 sCURSOR TO LEFT OF INDEX 
FC64:85 24 185 STA CH ;(RET CURSOR H=0) 
FC66:E6 25 186 LF INC CV :INCR CURSOR V. (DOWN 1 LINE) 
FC68:A5 25 187 LDA CV 

FC6A:C5 23 188 CMP WNDBTM ;OFF SCREEN? 

FC6C:90 Bé FC24 189 BCC VTABZ ; NO, SET BASE ADDR 
FC6E:C6 25 190 DEC CV ;DECR CURSOR V. (BACK TO BOTTOM) 
FC70: 191 * 

FC70: FC70 192 SCROLL EQU *% ;/RRAQI81 
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FC70: 
: DO 
FC74: 
FC74: 
FC74: 
FC74: 
:8D 
:6C 
FC7A: 
FC7A: 
FC7A: 
FC7A: 
768 


FC72 


FC74 
FC77 


FC7A 


FC7B: 
C9 
:90 
:8D 
: AO 
:A6 
785 
FC8B: 
FC8D: 
FC8F: 
:4C 
FC95: 

390 
Oe 
:4C 
FC9C: 
FC9C: 
FC9C: 
FC9C: 
FC9IC: 
FC9C: 
FC9C: 
FC9D: 
FC9E: 
:84 
7 A0 


FC7E 
FC80 
FC82 
FC85 
FC87 
FC89 


FCY2 


FC95 
FC9?7 
FC99 


FC9OF 
FCAL 


FCA3: 
:C8 


FCA5 


FCA6: 
FCAS: 
FCA8: 
:48 


FCA9 


FCAA: 
:DO 


FC AC 


FCAE: 
FCAF: 
>DO 


FCBI 


FCB3: 
FCB4: 
FCB4: 
FCB6: 


110) 


AO 


8D 


Bl 
86 
8D 


38 
90) 
18 
BO 
DO 
38 


E9 


638 
E9 


60 


DO 


06 
B5 


06 
FE 


F8 
Cl 
OD 
FF 
00 
01 
O01 
00 
Ol 
O7 


02 
32 
F7 


2A 


78 


75 


Ol 
FC 


Ol 
F6 


C0 
03 


O7 


CF 


CO 
C4 


FD 


FE29 


FC8F 


FC99 


OOO00 


FD1D 


FDID 


FCAA 


FCAG 


FCBA 


193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
299 
223 
224 
225 
226 
797 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 


* 
* 
* 
* 


LDY 
BNE 


IROUSER STA 


JMP 


#6 
GOTOCX1 


: CODE=SCROLL/ RRAON98 1 
;D0 40/80 /RRAOI81 


Jump here to swap out ROMs 
for interrupt handlers in peripheral cards 


SETSLOTCXROM ;switch in slots 


(S3FE) 


sand jump to user 


* 
* IRQDONE ($C3F4) jumps here after interrupt 

* because this cannot be done from SCn00 space 
x 
f 


RQDONE2 PLA 


IRONOSLT STA 


* 
DOCOUT] 


DOCOUT2 
* 


Note: 


STA 
CMP 
BCC 
STA 
LDY 
LDX 
STA 
LDA 
STX 


JMP 
BCC 
AND 
JMP 


DS 


MSLOT 
#SCl 


IRQNOSLT 


SCFFFE 
#0 

$l 

31 
($0),Y 
$l 


*Fix $C800 space 
srestore MSLOT 
svalid Cn? 


;Deselect all $c8on0 


sdo $CnOO reference 
;fix zp location 


SET INTCXROM 


TROFIX 


DOCOUT2 
INVFLG 
COUTZ]1 


sand restore the machine state 


sdon't mask controls 
sapply inverse mask 
sgq back to COUT] 


F8ORG+S49C-*,0 ;pad to clreol 


bytes CLREOL and CLREOLZ ($38 and $13) 


x 
x 
* are used by slot test at SFBB/. 
x 
C 


LREVI). SEC ;say it is EOL 
DFB $90 >'BCC' opcode 
CEREGEZ CLE ;say it is FOLZA 
STY BAS2L ;save Y in temp 
LDY #7 ;code=CLREOL 
BCS GOTOCX2 sdo it 
LNY scode 8=CLREOLZ 
BNE GOTOCX2 
* 
WAIT SEC senter with count in A 
WAIT2 PHA sdelay is: 
WAI L3 SBC #S0O1 
BNE WALT3 713411 *A+5*A*®A cycles 
PLA ;@ 1.023 usec per cycle 
SBC #S01 
BNE WAIT2 
RTS 
x 
NXTA4 INC A4L ;INCR 2-BYTE A4 
BNE NXTAI ; AND Al 
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FCRB8 


FCBC 


FCC2 


FCC4 
FCC6 


FCC8: 
FCC9: 
FCCY: 
20 
24C€ 
FCD2: 
FCD2: 
FCD2: 
FCD2: 
FCD2: 
FCN2: 
:8D 
20 


FCCC 
FCCF 


FCN2 
FCD5 


FCD8: 
FCDA: 
FCDD: 
:4C 
FCE3: 

78D 


FCEO 


FCE3 


FCE6: 
220 


FCE9 


FCEC: 
:85 
FCFO: 
FCFO: 
FCFO: 
FCFO: 
:A9 
7:85 
7:20 
78D 


FCEE 


FCFO 
FCF2 
FCF4 
FCF? 


FCFA: 
FCFD: 
FCFD: 
:C8 
:C9 
2:90 
709 


FDOO 
FDO1 
FDO3 
FDOS 


FDO?7: 
:29 


FDO9 


FDOB: 
FDOC: 
FDOC: 
FDOE: 
FD1O: 
:20 


FDL3 


:E6 
FCBA: 
:C5 
FCBE: 
FCCO: 
:E6 
:DO 
>E6 


A5 


AS 
E5 


60 


8D 


A9 
20 
20 


20 


84 


4C 


B9 


BO 
60 
AO 


DO 
4C 


43 
3C 
37 
3D 
3F 
3C 
02 
3D 


07 
67 
C5 


06 
4A 
DE 
ED 
3A 
FO 


06 
DO 
a3 
3B 
3A 


Al 
33 
67 
07 
9C 


00 


El 
06 


02 
DF 


OB 
03 
18 
B4 


co 
C5 
EE 


co 
F9 


FD 
FF 
EC 


co 
F8 
FY 


FD 
co 
CF 


02 


FD 
FB 


FCC8 


FDOB 


FDOB 


FD13 


247 
248 
249 
250 
251 
232 
253 
254 
229 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
297 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 


NXTAI 


RTS4B 
* 


HEADR 


* + + + + & 


FRR3 


* 
DISLIN 


NOTE: 


* + + * 


GETINST1 LDA #SAL 


* 
UPMON 


UPMON2 
x 


RDKEY 


FDLO 
RDKEYO 


INC A4H 

LDA AIL ;LNCR 2-BYTE Al. 
CMP A2L ; AND COMPARE TO A2 
LDA AIH ; (CARRY SET IF >=) 
SBC A2H 

INC ALL 

BNE RTS4&B 

INC AIH 

RTS 


STA SETINTCXROM ;force internal R0M 
JSR XHEADER swrite header 
JMP RETCX1 ;force slots and return 


For the disassembler to be able to do I/0 to slots, 
it cannot make calls to the I/O routines with the 
internal ROM switched itn. This stuff switches the 
ROM out for such instances. 


STA SETSLOTCXROM ;force slot ROM 


JSR  PRBL2 stab to the error 

LDA #SDE sto print a caret "7" 
JSR COUT ;print it 

JSR BELL sand beep 


JMP GETINSTL j;and go get next instruction 


STA SETSLOTCXROM ;force slot ROM 
JSR INSTDSP sdisassemble the instruction 


JSR PCADJ ;calculate new PC 
sTY PCH ;and update PC 
STA PCL 


The entry point GETINSTL is hard~coded in 


BFUNC of the Video firmware. 


szet mini-prompt ''!" 


STA PROMPT 


JSR GETLNZ 3;Z0 get a line of input 
STA SETINTCXROM ;force internal ROM 
JMP DOINST ;and return to CX space 
LDA I1N,Y s;fZet character 

INY ;point to next char 
CMP #SEl1 sis it lowercase? 

BCC UPMON2 ;=>nope 

CMP #SFB ; lowercase? 

BCS UPMON2 ;=>nope 

AND #SDF selse upshift 

RTS 

LDY #SB ;code=RDKEY 

BNE RDKEYO sallow S$FDIO entry 

JMP RDKEYL ;if enter here, do nothing 
JSR GOTOCX ;display cursor 
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FDL6:KA 
FDIZ7:EA 
FDL8:6C 
FDI B: 
FDIB: 
FD1B: AO 
FDID:4C 
FDZ07°EA 
FD? 1: 
FN21: 
BbZta2i 
FN24: At) 
FR26: D0 
FD28: 
FD28: 
FD28: 
FN28: 
FD28: 
FD28: 
FD28:4EF 
FD2B:4C 
FD2E:FA 
FD2F: 
FD2F:20 
FD32:20 
FD35:20 
FD38:C9 
FD3Al FO 
FND3C 360 
FD3D: 
FD3D:A0 
FD3F:29 
FD42:A4 
FD44:9D 
FD47: 


FD47:20 
FD4A:EA 
FD4SB:EA 
FD4C:EA 
FND4N: BD 
FD5S0:C9 
FD52:F0 
FD54:C9 
FD56:¥O 
FD58:E0 
FD5A:90 
FD5C:20 
FDSF:E8 
Fp60:n0 
FD62: 

FD62:A9 
FN64 :20 
FD67:20 


38 


13 
B4 


Ww 
Vv] 
ED 


21 
A5 
28 
9B 
F3 


OO 
B8 
1D 
98 
OA 
F8 
03 
3A 


bC 
ED 
BE 


tH) 


FDLR 


i IS 


FI2 | 


ED 


FDID 


7 
FD 


FT) 
FB 
FI) 


RD2E 


FB 


FD 


a 
— 
I 


FD7 1 


FD62 


FDSF 


FD75 


FD 
FI) 


BWI 
302 
404 
304 
305 
306 
307 
JOR 
INY 
310 
31] 
312 
ae 
314 
315 
316 
317 
318 
319 
320) 
324 
wee 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
433 
334 
335 


336 
337 
338 
339 
340 
34 
342 
443 
344 
345 
346 
347 
348 
349 
350 
431 
352 
353 


RDKEY | 
* 

KEY IN 
GOTOCEX2 


* 
R DESC 


GETLN. 


+ * * + & 


NEWRDKEY 


* 
ESC 


RDCHAR 


* 
PICKFIX 


AZO AUTOST2 


NOTCR 


NOTCRI 


* 
CANCEL 


GETLNZ 


NOP 
NOP 
IMP 


KOU 
LDY 
MP 
NOP 


hOU 
ISR 
LDY 
BNE 


LSR 


IMP 
NOP 


JSR 
JSR 
Diets 
CMP 
BEO 
RTS 


LpDY 
ESR 
ED 
STA 


JSR 
NOP 
NOP 
NOP 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CPX 
BCC 
JSR 
INX 
BNE 


LDA 
JSR 
JSR 


(KSWI) 


* 
#3 
GOLVOCX 


* 

RDKEY 
fy 
GOTVEK2 


Flag to the video firmware 
This routine is called by RDCHAR which is called by 
The high bit 
that use the CROO space. 


MSLOT 
RDKEY 


RNESC 
ESCNEW 
NEWRDKEY 
#S9OR 

EG 


2 
GOTOCX 
CH 
IN,X 


COUT 


IN,X 
#S8R 
BCKSPC 
#S98 
CANCEL 
#SFR8 
NOTCRI1 
BELI, 


NX T'CHAR 
ESDC 


COUT 
CROUT 


Appendis b: 


3GO TO USER KEY-TN 


;ROKEY/RRAUI8] 
>/RRAOYB] 
;/RRAODYR I 


“GET A KEY 
;CODE=FIXIT 
,=Palwavs 
allowed. 


that escapes are 


of MSLOT is set bv all cards 


7128 means escape allowed 
;now read the key 


:/RRAOQSI 

;HANDLE ESC FUNCTION, 
*>Flag RDCRAR and read 
sTESCT? 
YESSY 


key 


DON'T RETURN. 


scode = fixpick 

3do 80 column pick 

;restore Y 

;and save new character 
Auto-Start Monitor ROM 27-AUG-84 PAGE 20 


;echo typed char 


SCHEGK FOR EDT) KEYS 
> — BACKSPACE 


3 = <CONTROL=X 
;MARGIN? 

. YE, SOUND BEL. 
;ADVANCE {[NPUT INDEX 


;BACKSLASH AFTER CANCELLED LINE 


“OUTPUT CR! 


Apple Tle Monitor ROM Listing 


FD6A:A5 33 354 GETLN LDA PROMPT ;OUTPUT PROMPT CHAR 


FD6C:20 ED FD 355 JSR COUT 

FD6F:A2 01 356 LDX #S01 ; INIT LNPUT INDEX 
FD71:8A 357 BCKSPC TXA 

FD72:FO F3 FD67 358 BEQ GETLNZ ;sWILL BACKSPACE TO 0 
FD74:CA 359 DEX 

FD75:20 35 FD 360 NXTCHAR JSR RDCHAR 

FD78:C9 95 361 CMP #$95 ;USE SCREEN CHAR 
FD7A:DO 08 FD84& 362 BNE ADDINP ; FOR CONTROL-U 
FD7C:Bl 28 363 LDA (BASL),Y ;do 40 column pick 
FD7E:2C LF CO 364 BIT RD8OVID 380 columns? 

FD81:30 BA  FD3D 365 BMI PICKFIX ;=>yes, fix it 
FD83:EA 366 NOP 

FD84:9D O00 02 367 ADDINP STA _ IN,X ‘ADD TO INPUT BUFFER 
FD87:C9 8D 368 CMP #S8D 

FD89:DO BC FD47 369 BNE NOTCR 

FD8B:20 9C FC 370 JSR CLREOL ;CLR TO FOL IF CR 
FD8E:A9 8D 371 CROUT LDA #$8D 

FD90:DO 5B FDED 372 BNE COUT ; (ALWAYS ) 

FD92: 373 * 

FD92:A4 3D 374 PRA] LOY AlH ;PRINT CR,Al IN HEX 
FD94:A6 3C 375 LDX AIL 

FD96:20 8E FD 376 PRYX2 JSR CROUT 

FD99:20 40 F9 377 JSR  PRNTYX 

FD9C:A0 00 378 LDY #S00 

FD9E:A9 AD 379 LDA #SAD sPRINT '-' 

FDAO:4C ED FD 380 JMP COUT 

FDA3: 381 * 

FDA3:A5 3C 382 XAM8 LDA AIL 

FDA5:09 07 383 ORA #S$07 ;SET TO FINISH AT 
FDA7:85 3E 384 STA A2L ; MOD 8=7 

FDA9:A5 3D 385 LDA AIH 

FDAB:85 3F 386 STA A2H 

FDAD:A5 3¢C 387 MO 

D8CHK LDA ALL 

FDAF:29 07 388 AND #$07 

FDBI1:DO 03 FDB6 389 BNE DATAOUT 

FDB3:20 92 FD 390 XAM JSR PRAL 

FDB6:A9 AO 391 DATAOUT LDA #SA0 

FDB8:20 ED FD 392 JSR COUT ;OUTPUT BLANK 
FDBB:Bl 3C 393 LDA (AILL),Y 

FDBD:20 DA FD 394 JSR PRBYTE OUTPUT BYTE IN HEX 
FDCO:20 BA FC 395 JSR NXTAI 

FDC3:90 E8 FDAD 396 BCC MOD8CHK ;NOT DONE YET. GO CHECK MOD 8 
FDC5 :60 397 RTS4C RTS ; DONE. 

FDC6: 398 * 

FDC6:4A 399 XAMPM LSR A ;DETERMINE IF MONITOR MODE IS 
FDC7:90 EA FDB3 400 BCC XAM ; EXAMINE, ADD OR SUBTRACT 
FDC9:4A 401 LSR A 

FDCA:4A 402 LSR A 

FDCB:A5 3E 403 LDA A2L 

FpCD:90 02 FDD] 404 BCC ADD 

FDCF:49 FF 405 EOR #SFF ;FORM 2'S COMPLEMENT FOR SUBTRACT. 
FDD1 :65 3¢C 406 ADD ADC ALL 
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FDD3 
FDD4 


FDD6: 
268 


FDD9 


FDDA: 
FDDB: 
4A 
FDDD: 
FE DDE? 
220) 


FDDC 


FDDF 


FDE2: 
729 
209 
Pal Oe 


FNE3 
FDE5 
FDE? 


FDE9: 
FOEB: 
FDED: 
FDED: 
FDFO: 
FNFO: 
:C9 
SiG 
FDF6: 
FDF6: 
784 
FDF9: 
FDFA: 
aC 
FDFE: 
FOFF: 
FROO: 
US 
FEQ2: 
:CA 
FEO5S: 
:CY 
FEQ9: 
785 
FEOD: 
FROF: 
:F6 
> DO 
:E6 
260 
FEI8: 
FEL8: 
FEILA: 
FEID: 
FEIF: 
FE20: 
FE20: 
aa ea 
395 
FE26: 


FDFI 
FDF3 


FDF7 


FDFB 


FEOO 


FEO4 


FEQ? 


FROB 


FELL 
FEL 3 
FELS 
FEL? 


FE24 


14 


2:48 
7A9 


20) 


48 
4A 


4A 
4A 


68 


90 
69 


6C 


48 


48 


A8 
68 


EA 


EA 


FU 


DO 


DO 


AS 
91 


B9 
85 
60 


A2 
B5 


95 


BD 
ED 


E5 


OF 
BO 
BA 
O2 
06 


36 


AU 
95 


35 


46 


34 
OF 


16 
BA 
BB 
31 
3k 
40) 
40 
(2 
4l 


44 
FF 
31 


Ol 
3k 
42 
44 


FD 


FD 


OO 


FC 


FC 


O} 


FDED 


FDA3 


FELD 


FDC6 


FEI? 


407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
44} 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 


PRBY TE 


PRHEX 
PRHEXZ 


COUT 


COUT] 


* 


COUTZ 
COUTZ1 


BLANK 


STOR 


RTSS 
x 
SETMODE 


SETMD2 


LT: 
Le 


PHA 
LDA 
JSR 
PLA 
PHA 
LSR 
LSR 
LSR 
LSR 
JSR 
PLA 
AND 
ORA 
CMP 
BCC 
ADC 


JMP 


PHA 
CMP 
JMP 


PHA 
STY 
TAY 
PLA 
MP 
NOP 
NOP 


DEC 
BEO 
DEX 
BNE 
CMP 
BNE. 
STA 
LDA 
STA 
INC 
BNE 
INC 
RTS 


LDY 
LDA 
STA 
RTS 


LDX 
LDA 
STA 
STA 


fSBD 
COUT 


PRHEXZ 


#SOF 
#SBO 
#SBA 
COUT 
#506 


(CSWL) 


#SAO 
DOCOUT] 


YSAVI1 


NEW VW 


YSAV 
XAM8 


SETMDZ 
ESBA 
XAMPM 
MODE. 
A2t, 
(A3L),Y 
A3BL 
RTSS 
A3H 


YSAV 
IN-1,Y 
MODE 


#S0] 

A2L,X 
A4L,X 
ASL,X 


Appendix B 


sPRINT '=', THEN RESULT 


;PRINT BYTE AS 2 HEX DIGITS 
» (DESTROYS A-REG) 


-PREINT HEX DIGIT [IN A=REG 
;LSBITS ONLY. 


sVECTOR TO USER OUTPUT ROUTINE 


save original character 
tis it a control? 
;=>mask if not; return to COUYTZ} 


;save original character 
ssave Y 

;save masked character 
sget original char 

snew entry to vidwait 


;BLANK TO MON 

:AFTER BLANK 

“DATA STORE MODE? 

> NO: XAM, ADD, OR SUBTRACT. 
sKEEP IN STORE MODE 


;STORE AS LOW BYTE AT (A}3) 


> [NCR A3, RETURN. 


;SAVE CONVERTED 'r', '#!, 
SN: Pe AS MONE 


COPY .A2 <2 BYTES) TO 
; A& AND A5 


Apple He Monitor ROM Listine 


FE28:CA 461 DEX 


FE29:10 F7 FE22 462 BPL.- Et2 

FE28:60 463 RTS 

FE2C: 464 * 

FE2C:Bi 3C 465 MOVE LDA (AIL),Y sMOVE (Al) THRU (A2) TO (A4) 
FE2E:91 42 466 STA (A4L),Y 

FE30:20 B& FC 467 JSR NXTA4 

FE33:90 F7 FE2C 468 BCC MOVE 

FE35:60 469 RIS 

FE36: 470 * 

FE36:Bl 3C 47) VFY LDA (AILL),Y ‘VERIFY (Al) THRU (A2) 
FE38:D1 42 472 CMP (A4L),Y ; WITH (A4) 

FE3A:FO 1C FE58 473 BEQ VFYOK 

FE3C:20 92 FD 474 JSR PRA} 

FE3F:Bl 3¢€ 475 LDA (AIL),Y 

FE41:20 DA FD 476 JSR PRBYTE 

FE44:A9 AO 477 LDA #SAO 

FE46:20 ED FD 478 JSR COUT 

FE49:A9 A8 479 LDA #SA8 

FE4B:20 ED FD 480 JSR COUT 

FE4E:Bl 42 481 LDA (A4L),Y 

FES0:20 DA FD 482 JSR PRBYTE 

FES3:A9 AQ 483 LDA #SA9 

FES5:20 ED FD 484 JSR COUT 

FES8:20 B& FC 485 VFYOK JSR NXTA4 

FESB:90 D9 FE36 486 BCC VFY 

FESD:60 487 RTS 

FE5F: 4388 * 

FESE:20 75 FE 489 LIST JSR AIPC sMOVE Al (2 BYTES) TO 
FE6L:A9 14 490 LDA #S$14 - PC [F SPEC'D AND 
FE63:48 491 LIST2 PHA ; DISASSEMBLE 20 INSTRUCTIONS. 
FE64:20 DO F8 492 JSR INSTDSP 

FE67:20 53 F9 493 JSR PCADJ ;ADJUST PC AFTER EACH INSTRUCTION. 
FE6A:85 3A 494 STA PCL 

FE6C:84 3B 495 STY PCH 

FE6E:68 496 PLA 

FE6F: 38 497 SEC 

FE7O:E9 Ol 498 SBC #SQ] sNEXT OF 20 INSTRUCTIONS 
FE72:DO EF FE63 499 BNE LIST2 

FE74:60 $00 RTS 

FE75: 501 * 

FE75:8A 502 ALPC TXA ;IF USER SPECIFIED AN ADDRESS, 
FE76:FO 07 FE7F 503 BEQ ALPCRTS ; COPY IT FROM Al TO PC. 
FE78:B5 3C 504 Al1PCLP LDA AIL,X ‘YEP,> SG COPY TEs 
FE7A:95 3A 505 STA PCL,X 

FE7C:CA 506 DEX 

FE7D:10 F9 FE78 507 BPL AILPCLP 

FE7 F:60 508 ALPCRTS RTS 

FE8O0: 509 * 

FE80:A0 3F 519 SETINV LDY #S3F :;SET FOR INVERSE VID 
FE82:D0 02 FE86 SLI BNE SETIFLG ; VIA COUT] 

FF84:A0 FF 512 SETNORM LDY #SFF ;SET FOR NORMAL VID 
FF86:84 32 513 SETLFLG STY  INVFLG 

FF88 :60 514 RTS 
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FE89: 
FE89: 
FE8B: 
FE8D: 
FE8F: 
:DO 
FE93: 

7 AY 
7:85 
2 A2 
FE99: 
FE9B: 
FE9D: 
FEOF: 
:09 
FEA3: 
294 
295 
FEA9: 
FEAB: 
FEAF? 
FEAE: 
700 
FEBO: 

:4C 
:4C 
2U 
FEB9: 
:6C 
FEBF?: 
:60 
FEC3: 
:60 
FEC5: 

FEC5: 

FEC5: 

FECS: 

FECS: 

FEC5: 

:8D 
260 
tEA 
FECA: 

:4C 
FECD: 
FECD: 
FECF: 
.20 
> FO 
FED/7: 

FED?: 

FED/: 

FED?: 

FED/: 


FE9! 
FE93 


FE95 
FE9?7 


FEAL 


FEAS 
FEA7 


FRAF 
FEBO 
FEB3 
FEB6 
FEBC 


FEC2 


FEC4 


FECS 
FEC8 
FEC9 


FECA 


FED2 
FEDS 


IIb 


AY 
85 


AO 


AO 
A5 
29 
FO 
AQ 
AO 
4C 


EA 


20 


4C 


EA 


A9 
8D 


00 
3E 
38 
1B 
08 


00 
SE 
36 
FO 
3F 
OF 
O04 
co 
00 
00 
01 
OE 
B4 


00 
03 
75 
3F 
3A 
D? 


06 


F8 


40 
O7 
AA 
ZG 


FE9B 


FRA5 


FB 


EO 
EO 
FE 
FF 
00 
FA 


co 


Q3 


CO 
C5 
FFO3 


515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 


* 


SETKBD LDA #S$00 >DO 'IN*#O’ 
INPORT STA A2L ;DO 'IN#AREG' 
INPRT LDX #KSWL 
LDY #KEYIN 
BNE LOPRT 
* 
SETVID LDA #S00 ;DO 'PR#Q’ 
OUTPORT STA A2L -DO 'PR#AREG' 
OUTPRT LDX #CSWL 
LDY #COUT] 
IOPRT LDA A2I1, “SET INPUT/ONTPUT VECTORS 
AND #SOF 
BEO LOPRT1 
ORA #<LOADR 
LDY #S$00 
IOPRTL STY LOCO,X ;save low byte of hook 
STA LOCL,X ;Ssave acc 
LDY #SE scode=PR#/ IN# 
GOTOCX4 IMP GOTOCX ;perform call 
* 
NOP 
CKSUMFIX DFB 0 ;/RRADIS1 
= ;-->CORRECT CKSUM AT CREATE TIME. 
XBASIC JMP BASIC >TO BASIC, COLD START 
BASCONT JMP- BASIC2 ;TO BASIC, WARM START 
GO JSR ALPC ;ADDR TO PC [F SPECIFIED 
JSR RESTORE ;RESTORE FAKE REGESTERS 
JMP (PCL) ;AND GO! 
REGZ JMP REGDSP 3GO DISPLAY REGISTERS 
TRACE RTS ;TRACE IS GONE 
NOP 
STEPZ RTS ;STEP 1S GONE 
* 
* Return here from GOTONCX 
* 
* NOTE: This address is hard-coded in BFUNC of the 
* video firmware 
* 
RETCX] STA SETSLOTCXROM ;restore bank 
RETCX2 RTS ;simply return 
NOP 
* 
USR JMP  USRADR ;JUMP ‘TO CONTROL-Y VECTOR IN RAM 
* 
WRITE LDA #840 
WRT2 STA SETINTCXROM ;set internal ROM 
JSR WRITK2 swrite to tape 
BEQ = RD2 ;=Dalways set slots, beep 
* 
* SEARCH is called with a Monitor command of the form 
* HHLL<ADRI.ADR2 in which ADR] < ADR2 and LL precedes HH 
* in memory. If HH is 0, or omitted CLL<ADRI.ADR2), then 
* 


the single byte LL is searched for. You cannot search for 
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FED?: 

FED?: 

FED? : 

FED?7:A0 
FED9:A5 
FEDB: FO 
FEDD: D1 
FEDF : DO 
FEF 1 :88 
FERK2:A5 
FEE4:D1 
FEF6 : DO 
FEE8:20 
FEEB:20 
FEEE:90 
FEFO:60 
FEF: 

FEF: AO 
FEF3:20 
FEFO: 

FEF6:20 
FEF9:68 
FEFA:68 
FEFB: DO 
FEED: 

FEFD:8D 
FFOO:20 
FFO3:8D 
FFO6: FO 
FFO8:DO 
FFOA: 

FFOA:Cl 
FF13: 

FFI3: 

FFI 3: 

FF13:20 
FFL6:C9 
FF18:FO 
FF1A:60 
FFIB: 

FF18: BO 
FFLD:C9 
FFLF:DO 
FF21: B9 
FF24: A2 
FF26:C9 
FF28:FO 
FF2A:C8 
FF2B:DO 
FF2D: 

FF2D:A9 
FF2F:20 
FF32:A9 
FF34:20 


Ol 
43 
04 
3C 
OA 


42 
3C 
03 
92 
BA 
E? 


OD 
B4 


00 


6C 


07 
D1 
06 


23 


FO 


FD 
AO 
F9 


6D 
AO 
28 
00 
07 
8D 
7D 


63 


C5 
ED 
D2 
ED 


FEF 1 


FEEB 


FEER 
FD 
FC 
FED? 


FB 


FF69 

co 

C5 

CO 
FF3A 
FF2D 


FO EC 


FC 


FF13 


FF8A 


FF49 


O02 


FFA? 


FF90 


FD 


FD 


569 
570 
571 
572 
DES 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
391 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
61] 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 


* a two byte pair with a high byte of 0. 


A list of all 


* adresses containing the specified pattern is displayed. 


* 


SEARCH  LDY 
LDA 
BEQ 
CMP 
BNE 
NEY 
LDA 
CMP 
BNE 
JSR 
JSR 
BCC 
RTS 


SRCH1 


SRCH2 


MINI LDY 


JSR 
CRMON JSR 
PLA 
PLA 
BNE 
READ STA 
JSR 
STA 
BEQ 
BNE 


RD2 


k 
TITLE 
* 


* NNBL gets 
* 


NNBL 


ASC 


JSR 
CMP 
BEQ 
RTS 
* 


LOOKASC BCS 
CMP 
BNE 
LDA 
LDX 
CMP 
BEQ 
INY 
BNE 
* 


PRERR LDA 
JSR 
LDA 


JSR 


ft] 

AGH 
SRCHI 
(ALL),Y 
SRCH2 


ASL 
(ALL),Y 
SRCH2 
PRAI 
NXTA1 
SEARCH 


#SN 
GOTOCX 


BLI 


MONZ 


sset Y to } 

;is high byte 0? 

;=>yes, only look for low byte 
;check high byte first 
;=>no match, try next byte 
smatch, now check low byte 
;gZet Low byte 

sdoes it match? 

;=>no match, try next byte 
;bytes match, print address 
sincrement address 

;set Y back to 1 


;dispatch mini-assembler call to 
;get internal ROM switched in 


;HANDLE CR AS BLANK 
; ‘THEN POP STACK 

; AND RETURN TO MON 
; (ALWAYS) 


SETINTCXROM ;set interna] ROM 


XREAD 3do tape read 

SETSLOTCXROM ;restore slot CX 

BELL ;read (write) ok, beep 

PRERR ;error, print message 

"Apple //e" 

the next non-blank for the mini-assembler 
UPMON ;gzet char, upshift, INY 

#SA0 sis it blank? 

NNBL ;yes, keep looking 

DIG 3;it was a digit 

#SA0 scheck for quote (') 

RTS6 snope, return char 

$200 ,Y ;else get next char 

#7 ;for shifting asc into A2L and A2H 
#S8D swas it CR? 

GETNUM ;yes, go handle CR 

;advance index 

NXTBIT 3;=>(always) into A2L and A2H 
#SC5 SPRINT 'ERR', THEN FALL INTO 
COUT ; FWEEPER. 

#$N2 

COUT 
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FF37 220 
FF3A: 

FF3A:A9 
FF3C:4C€ 
nO 

FF3F:A5 
FF41:48 
FR42:A5 
FF44:A6 
FF46:A4 
FF48:28 
FF49:60 
FF4A: 

FF4A:85 
FF4C:86 
FR4E 84 
FFSO 208 
FF51:68 
FFS2:85 
FRS4:BA 
FF55:86 
FFS7:18 
FF5& :60 
FF59: 

FFS9:20 
FFSC:20) 
FF5SF:20) 
FF62:20 
FF65: 

FF65:08 
FF66:20 
FF69:A49 
FF6B:85 
FF6D:20 
FF70320 
FF/73:20 
FF/6:84 
FF78&:A0 
FF7A:88 
FE7B:30 
FF7D:D9 
FF380: D0 
FFR2 220 
FFR5S:A4 
FF87:4C€ 
FF8A: 

FF8A:A2 
FFBC:0A 
FF8D:0A 
FFBE SOA 
FF8F:O0A 
FFYOZ0A 
FF91:26 
FFI3:26 


[18 


ED 


87 


Fi) 


ED Fi) 


43 


45 
46 
47 


BS 
2F 
93 
89 


3A 
AA 
33 
67 
Ci 
A7 
34 
17 


E8 
CC 
FS 
BE 
34 
73 


()3 


3K. 
oF 


sis 
FB 
Fr 
FE 


FF 


FD 
FF 
FE 


FF65 
PE 

FF7A 
FF 


FE 


623 
624 
625 
426 
h27 
42% 
629 
630 
631] 
632 
633 
434 
635 
h 36 
437 
638 
639 
649 
64] 
642 
643 
644 
645 
H46 
647 
048 
O49 
650 
65] 
652 
653 
h54 
655 
656 
3 
658 
659 
660) 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
67] 
672 
673 
674 
675 
676 


BELL 


* 


RES LORE 


RESTRI 


RTS6 


SAVE 
SAV] 


* 
OLPRST 


k 
MON 


MONZ 


NXTLIM 


CHRSRCH 


DIG 


NXTBIT 


JSR 


oA 
IMP 


LDA 
PHA 
LDA 
LOX 
LAY 
PLP 
RTS 


STA 
SUX 
ne Bd 
PHP 
PLA 
STA 
TSX 
STX 
CLD 
RTS 


JSR 
JSR 
ASR 
hse 


CLD 
JSR 
LDA 
STA 
JSR 
JSR 
JSR 
STY 
LDY 
DEY 
BMI 
CMP 
BNE 
JSR 
LDY 
JMP 


LOX 
ASL 
ASL 
ASL 
ASL 
ASL 
ROL 
ROL 


COUT 


#87 
Cowl 


be fia i Sir 


ASH 
XREAG 
YREG 


ASH 
XREG 
YREG 


STATUS 


SPNT 


SE TNORM 
INTT 
SEV Ib 
SETKBD 


BELL 
ESAA 
PROMPT 
GETLNZ 
ZMODE 
GETNUM 
YSAV 
#S1)7 


MON 
CHRIBL,Y 
CHRSRCH 
TOSUB 
YSAV 

NX TI TM 


#503 


Appendix [3 


SMAKRE A JOYFUL NOTSE, THEN Re PERN, 


sRESTORE 5902 REGISTER CONTENTS 
> USED BY DEBUG SOFTWARE 


REGESTER CONTENTS 
SOFTWARE 


7SAVE 6502 
; FOR DEBUG 


SET SCREEN MODE 
>; AND INIT KBD/SCREEN 
> AS E/0 DEVS. 


“4UST SEL HEX MODE! 
>FWEEPER. 
~'*" PROMPT FOR MONITOR 


;sREAD A LINE OF INPUT 


;CLEAR MONITOR MODE, SCAN [DX 
sGET [TEM, NON-HEX 

; CHAR IN A-REG. 

; X-REG=0O ITF NO HEX INPUT 


BEEP & [RY AGAIN. 
{N TABLE 


;COMMAND NOT FOUND, 
;FIND COMMAND CHAR 
sNOT THIS fiMr 

sGOT LP! CALL CORRESPONDING SUBROUTINE 
>;PROCESS NEXT ENTRY ON HIS LINE 


sGOL HEX DIGIT, 
; SHIFT INTO A2 


Appte Te Monitor ROM Listing 


FF95:CA 
FF96:10 
FF98:A5 
FF9A:DO 
FF9C: B5 
FF9E:95 
FFAO :95 
FFA2:E8 
FFA3:FO 
FFA5:DO 
FFA/: 

FFA7: A2 
FFA9:36 
FFAB:86 
FFAD:20 
FFBO:EA 
FFB1:49 
FFB3:C9 
FFB5:90 
FFB7 :69 
FFB9:C9 
FFBB:4C 
FFBE: 

FFBE:A9 
FFCO:48 
FFC1: BY 
FFC4:48 
FFCS:A5 
FFC7:A0 
FFC9:84 
FFCB:60 
FFCC: 

FPCC: BC 
FFCD: B2 
FFCE: BE 
FFCF:9A 
FFDO:EF 
FFD] :C4 
FFD2:EC 
FFD3:A9 
FFD4 : BB 
FFD5:A6 
FFD6: A& 
FFD? :06 
FFD8:95 
FFD9:07 
FFDA:02 
FFDB:05 
FFDC: FO 
FFDD:00 
FFDE: EB 
FFDF:93 
FFEO: A7 
FFE1 :C6 


F8 


6 
3F 
3D 
41 


F3 
06 


00 
36 
3F 
F) 


BO 
OA 
D3 


FA 
1B 


FE 
E3 
a) 


00 
31 


FC 


FF 


FF 


FF90 


FFA2 


FF98 
FFAD 


FF8A 


677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
72) 
722 
723 
724 
725 
726 
727 
728 
729 
730 


NX TBAS 


NXTBS2 


* 
GETNUM 


NXTCHR 


TOSUB 


ZMODE 


* 
CHRT BL 


DEX 
BPL 
LDA 
BNE 
LDA 
STA 
STA 
INX 
BEO 
BNE 


LDX 
STX 
STX 
JSR 
NOP 
FOR 
CMP 
BCC 
ADC 
CMP 
JMP. 


LDA 
PHA 
LDA 
PHA 
LDA 
LDY 
STY 
RTS 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DF B 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


NXTBIT 
MODE 
NXTBS2 
A2H,X 
ALH,X 
A3H,X 


NXTBAS 
NXTCHR 


#$00 
A2L 
A2H 
UPMON 


#SBO 
#SOA 
DIG 
#$88 
#SFA 
LOOKASC 


#<GO 
SUBTBL,Y 


MODE 
#S00 
MODE 


$BC 
$B2 
SBE 
S9A 
SEF 
$c4 
SEC 
SA9 
SBB 
$A6 
SA4 
$06 
$95 
$07 
$02 
$05 
SFO 
$00 
SEB 
$93 
SA7 
$C6 


;LEAVE X=SFF IF DIG 


;IF MODE IS ZERO, 
; THEN COPY A2 TO Al AND A3 


sCLEAR A2 


;get char, upshift, ILINY 


;INY now done in UPMON 


;BR IF HEX DIGIT 


scheck for ASCLIE input 


:DISPATCH TO SUBROUTINE, BY 

; PUSHING THE HI-ORDER SUBR ADDR, 
: THEN THE LO-ORDER SUBR ADDR 

; ONTO THE STACK, 

; (CLEARING THE MODE, SAVE THE OLD 
; MODE IN A-REG), 


; AND 'RTS' TO THE SUBROUTINE! 


;7*C (BASIC WARM START) 
;°Y (USER VECTOR) 
:7E (OPEN AND DISPLAY REGLSTERS) 


;! (enter mini-assembler) 
(MEMORY VERIFY) 
-"K ( IN#SLOT) 

3S (search for 2 bytes) 
+*P (CPR#SLOT) 
:7B (BASIC COLD START) 
;'-* (SUBTRACTION) 

;'+' (ADNITION) 
°M (MEMORY MOVE) 
;'<' (DELIMITER FOR MOVE, VFY) 
N (SET NORMAL VIDEO) 
a | (SET INVERSE VIDEO) 
-L (DISASSEMBLE 20 INSTRS) 
3W (WRITE TO TAPE) 
3G 

R 

' 

' 


<= 


(EXECUTE PROGRAM) 
(READ FROM TAPE) 
:':' (MEMORY FILL) 

:'.' (ADDRESS DELIMITER) 
;'CR' (END OF INPUT) 
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FFE2 


FFE4 


FFE? 


FFFO 
FFF IL 
FFF2 
FFF3 


FFF4: 
FEF5S: 
FFF6: 
PRE?? 
FFF8: 
FFFY: 
FFFA: 
FFFA: 
762 


FFFC 


FFFE: 
0000: 
OO00: 
NOOO: 
C000: 
OON0: 
N000: 
C4C8: 
C4C8: 
220 


c4C8 


C4CB: 
C4CD: 
C4pN0: 
C4)2: 
>) 
C4D8: 
C4DA: 
C4DN: 
:C9 
> FO 
:A4 
C4k5: 
C4E6: 


c4)5 


C4DF 
C4El 
C4E3 


120 


799 
FFE3: 
FFE3: 
FFE3: 
FFE3: 
FFE3: 
CY 
FFE5: 
FFE6: 
235 
FFE8: 
FFES9: 
FFEA: 
FFEB: 
FFEC: 
FEED: 
FFEE: 
FFEF: 
:83 
:7F 
- 5D 
:CC 


B2 


BE 
FO 


BC 
D6 
96 
AF 
17 
17 
2B 
lF 


BS 
FC 
17 
17 
F5 
03 


FB 


FA 


R4 
DD 
nO 
20 


FO 
BD 
FO) 


18 
88 


03 
FA 
C3 


[3 
34 
B4 
13 
13 
BA 
OD 
BA 
(V7 
AG 
3 
34 


C4C8 


FF 


F9 
C4E5 

FF 

F9 
C4E? 


731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
74) 
742 
743 
744 
745 
746 
747 
748 
749 
750 
75] 
752 
733 
754 
755 
756 
757 
758 
759 
760 
761 
762 


—-— Tr oonmDmorvuv hw iv 


—_— — 
aw he 


_ 
ra 


15 
16 
\7 
18 
19 
20 
21 


+ + + 


SUBTBL 


* 


DFB 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
DFB 
DFB 
DFB 
OFB 
DFB 
DFB 
NFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


DW 
DW 
DW 


$99 ; BLANK 


Table of low order monitor routine dispatch 
addresses. 


High byte always SFE 


>BASCONT-1 ;7C (BASIC warm start) 
>USR-1 -*y (not used) 

>REGZ=-1 ae (open and display registers) 
>MINI-1 smini assembler 

>VFY~1 -V (memory verify) 
>INPRT-1 37K  (LN#SLOT) 

>SEARCH-1 ;search for pattern 
>OUTPRT~1 ;7P (PR#SLOT) 

>XBASIC-1 3;7B (BASIC cold start) 
>SETMODE-1 ;'-' (subtraction) 
>SETMODE~-1 ;'+' (addition) 


>MOVE-1 3M (memory move) 
>LT=-1 >'<' (delim for move,vfy) 
>SETNORM-1 ;N (set normal video) 


>SETINV-1 31 (set inverse video) 
>LIST-1 ok; (disassemble 20 instrs) 
>WRITE-1  5W (write to tape) 

>GO-1 “G (execute program) 
>READ-] sR (read from tape) 
>SETMODE-1 3':' (memory fill) 
>SETMODE-1 ;'.' (address delimiter) 
>CRMON-1 ;'CR' (end of input) 

>BLANK-] ; BLANK 


NMI ;NON-MASKABLE INTERRUPT VECTOR 
RESET ;RESET VECTOR 
IRQ ; INTERRUPT REQUEST VECTOR 


INCLUDE MINI 


* Apple //e Mini Assembler 


* 


* Got mnemonic, check address mode 


* 


AMOR] 


AMOD2 
AMOD4 


ORG 


J5R 
STY 
CMP 
BNE 
JSR 
CMP 
BEQ 
LDA 
BEO 
CMP 
BEO 
LDY 
CLC 
DEY 


C3ORG+$1C8 

NNBL sget next non-blank 
YSAV ;save Y 

CHARI ,X 

AMOD2 

NNBL ;Zet next non-blank 
CHAR2 ,X 

AMOD3 

CHAR2 ,X sdone yet? 

AMOD4 

fSA4 sif "S" then done 
AMOD4 

YSAV ;restore Y 
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C4E7:26 
C4E9:EO 
C4EB:DO 
C4ED:20 
C4F0:A5 
C4F2:F0 
C4F4:E8 
C4F5:86 
C4F7:A2 
C4F9:88 
C4FA:86 
C4FC:CA 
C4FD:10 
C4FF:60 
C500: 

CF3A: 

CF3A: 

CF3A: 

CF3A: 

CF3A:E9 
CF3C:4A 
CF3D:D0 
CF3F:A4 
CF41:A6 
CF43:D0 
CF45:88 
CF46:CA 
CF47:8A 
CF48:18 
CF49:E5 
CF4B:85 
CF4D:10 
CF4F:C8 
CF50:98 
CF51:E5 
CF53:D0 
CF55: 

CF55: 

CF55: 

CF55:A4 
CF57:B9 
CFSA:91 
CF5C:388 
CF5D:10 
CF5SF: 

CF5F: 

CF5F: 

CFSF:20 
CF62:20 
CF65:20 
CF68:4C 
CF6B: 

CF6B: 

CF6B: 


44 
03 
OD 
A? 
3F 
01 


35 
03 


3D 


C9 


81 


14 
3F 
3E 
Ol 


JA 
3E 
01 


3B 
40 


2F 
3D 
3A 


F8 


48 
1A 
lA 
E3 


C4FA 
FF 


C4F5 


C4C8 


CF3A 


CF53 


CF46 


CF50 


CF95 


00 


CFS? 


F9 
FC 
FC 
FC 


AMOD3 ROL 
CPX 
BNE 
JSR 
LDA 
BEQ 
INX 
STX 
LDX 
DEY 
STX 
DEX 
BPL 
RIS 


AMON5 


AMOD6 


ORG 
* 


* Calculate 
* 


REL SBC 
LSR 
BNE 
LDY 
LDX 
BNE 
DEY 
DEX 
TXA 
CLC 
SBC 
STA 
BPL 
INY 
TYA 
SBC 
BNE 


RELI 


RFEL2 


GOERR 
* 


ASL 
#$03 
AMOD6 
GETNUM 
A2R 
AMOD5 


;shift bit into format 


;get high byte of address 
=? 


YSAV] 
#$03 


AlH 


AMODI 


C8ORG+S73A 


offset byte for relative addresses 


#$81 scale relative address 
A 
GOERR sbad branch 
A2K 
A2L 
RELI 

;point to offset 

;displacement - 1 
PCL ssubtract current PCL 
A2L 3;and save as displacement 
REL2 scheck page 

;Zet page 

PCH scheck page 
MINIERR ;display error 


* Move instruction to memory 


* 


MOVINST LDPY 
MOV] LDA 
STA 
DEY 
BPL 
* 


LENGTR sget instruction ltength 
AlH,Y ;Zet a byte 

(PCL),Y sand move it 

MOV] 


* Display instruction 


* 


JSR 
JSR 
JSR 
JMP 


PRBLNK sprint blanks to make ProDOS work 
UP ;move up 2 lines 

UP 

DISLIN ;disassemble it, =>DOINST 


* Compare disassembly of all known opcodes with 
* the one typed in until a match is found 


Appendix B: Apple Tle Monitor ROM Listing 


CFOB: 

CF6B:A5 
CF6D:20 
CF70:AA 
CF71:BD 
CF74:C5 
CF76:D0 
CF78:BD 
CF7B:C5 
CF7D: D0 
CF7 F:A5 
CFB1:A4 
CF83:CO 
CFB5:FO 
CF87:C5 
CF89:FO 
CF8B:C6 
CF8D:DO 
CF8F:K6 
CF91:C6 
CF93;: FO 
CF95: 

CF9S: 

CF95: 

CF9S: 

CF9S:A4 
CF97:98 
CF9R:AA 
CF99:4C 
CFIC: 

CFIC: 

CFIC: 

CFIC: 

CFIC: 

CFIC: 20 
CF9F: AD 
CFA2:C9 
CFA4: FO 
CFA6:C9 
CFA8: DO 
CFAA:60 
CFAB: 

CFAB:20 
CFAE:C9 
CFBO: DO 
CFB2:8A 
CFB3:FO 
CFBS: 

CFB5:20 
CFB8: AY 
CFBA:85 
CFBC:20 
CFRBFIDA 
CFCO:E9 


3D 
BE 


00 
42 
13 
CO 
43 
OC 
44 
ZF, 
9D 
BY 
2E 
CA 
3D 
DC 
44 
35 
D6 


34 


CH 
OO 
AO 
12 
BD 
O1 


Al 
a3 
ES 
F2 
78 
3 
3D 
13 


Br 


F8 


FA 


CF8B 
F9 


CFSB 


CF3A 


CF55 


CF6B 


CFOB 


FC 


be 
02 


CFBB 


CFAB 


FF 


CFI? 


CF97 


FE 


FF 


76 
7] 
78 
79 
80 
8] 
82 
83 
B4 
B5 
R6 


88 

39 

90 

9) 

92 

93 

94 

95 

96 

97 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
12 
ELS 
114 
115 
116 
L1?7 
118 
L19 
120 
121 
122 
23 
124 
125 
126 
127 
128 
129 


* 
GETOP LDA ALH ;gzet opcode 
JSR  INSDS2 ‘determine mnemonic index 
TAX ;X = index 
LDA MNEMR,X ‘get right half of index 
CMP A4L sdoes it match entry? 
BNE NX'TOP ;=Ptry next opcode 
LDA MNEML,X ;get left half of index 
CMP A4&H ;does it match entry? 
BNE NXTOP $=>no, try next opcode 
LDA ASL ;found opcode, check address mode 
LDY FORMAT sget addr. mode format for that opcode 
CPY #S9D ;is it relative? 
BEQ- REL. ;=Pyes, calc relative address 
CMP FORMAT sdoes mode match? 
BEQ MOVINSTI ;=>yes, move instruction to memory 
NX TOP DEC AIH selse try next opcode 
BNE GETOP ,=>p0 try it 
INC ASL selse try next format 
DEC =YSAVI1 
BEQ GETOP v=>go Cry next format 
* 
* Point to the error with a caret, beep, and fall 
* into the mini-assembler. 
* 
MINIERR LDY YSAV ;get position 
ERR2 TYA 
TAX 
JMP  ERR3 ;displav error, = >DOLNST 
x 
* Read a line of input. If prefaced with " ", decode 
* mnemonic. If “S' do monitor command. Otherwise parse 
* hex address before decoding mnemonic. 
* 
DOINST JSR ZMODE sclear mode 
LDA $200 sget first char in line 
CMP #SA0 ;if blank, 
BEQ DOLIN ,=>e0 attempt disassemblv 
CMP #S8D sis it return? 
BNE GETII ;= no, continue 
RTS selse return to Monitor 
x 
GET LI JSR GETNUM sparse hexadecimal input 
CMP #$93 ‘look for "ADDR:" 
GOEKR2 BNE ERR2 sno o's" display error 
TXA >X nonzero if address entered 
BEQ  ERR2 sno "ADDR", display errer 
* 
JSR  ALPCLP smove address to PC 
DOLIN LDA #$03 set starting opcode 
STA ALH :and save 
NX TCH JSR  NNBL ;zer next non-blank 
ASL A ;validate entrv 
SBC SBE 
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CFC2 
CFC4 


CFC6 
CFC? 
CFC8 


CFCA: 
CECB: 
:26 
:CA 


CFCD 
CFCF 


CFDO: 
:C6 
CFD4; 
CFD6: 
CFD8: 
CFDA: 
CFDD: 
:0A 


CFD2 


CFDF 


CFEO: 
205 
:C9 


CFE1 
CFE3 


CFES5: 
:A6 


CFE? 


CFE9: 
:09 


CFEB 


CFED: 
184 
:B9 
:C9 
> FO 
:C9 


CFEF 
CFF1 
CFF4 
CFF6 
CFF8 


CFFA;: 
CFFC: 
CFFEF: 
:00 


CFFF 


709 
790 
CFC6: 
CFC6: 
CFC6: 
270A 
:0A 
:A2 


OA 
26 
10 
FO 
10 
A2 
20 
A5 


OA 


BO 


FO 


85 


DO 
4C 


C2 
D1 


Q4 


42 


F8 
3 
F4 
E4 
O05 
C8 C4 
44 


35 
20 
06 
35 
02 
80 


34 
a0 02 
BB 
O4 
8D 
B4 
6B CF 


CF97 


CFCA 


CFCA 
CFBC 


CFED 


CFED 


CFFC 


CFBO 


130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14) 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


CMP 
BCC 
* 


#SC2 
ERR2 


3;=>flaz bad mnemonic 


* Form mnemonic for later comparison 


ta 


ASL 
ASL 
LDX 
NXTMN ASL 
ROL 
ROL 
DEX 
BPL 
DEC 
BEO 
BPL 
LDX 
JSR 
LDA 
ASL 
ASL 
ORA 
CMP 
BCS 
LDX 
BEQ 
ORA 
AMOD7 STA 
STY 
LDA 
CMP 
BEQ 
CMP 
BNE 
AMOD8 JMP 


DFB 


A 

A 
#504 
A 
A4L 
A4H 


NXTMN 
Alu 
NXTMN 
NXTCH 
#85 
AMOD1 
ASL 

A 

A 
YSAVI 
#$20 
AMOD7 
YSAVL 
AMOD7 
#S80 
ASL 
YSAV 
$0200,Y 
#SBB 
AMODS8 
#S8D 
GOERR2 
GETOP 


$00 


sdecrement mnemonic count 


;index into address mode tables 
;do this elsewhere 
;get format 


szet our format 


;update format 

;update position 

;get next character 
cts Pe: ane 

;=-yes, skip comment 
;is it carriage return 


;Zet next opcode 


;byte for making CTOD checksum ok 
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3 


Index 


A 


alternate character set 9 
ALTZP 22 
Apple [IP 3. 17 

Pascal 3. 4, 9 

Pascal 1.20 10. 17 
Apple U Plus 3. 17 
Apple THe 3. 16. 27 
Apple He 3. 17. 27 

mouse — 16 

firmware 13. 16 
Apple TD 2.5 
Applesoft 80-column support 4 
ASCII] input mode 10. 11 
automatic uppercase — 6 
audihary 

RAM 20 

stack pointer 22 

zero page/stack 26 


B 


backspace 5, 6 
bank-switched memory 20 
bell 5. 6 
boat 

device 3 

Volume 3 
break instructions 26 
breaks [8 
BRK 19, 26 
built-in interrupt handling routine 

2) 


C 


card(s) 
developing 18 
SO-columm text 18 
extended 80-column text 20 
ROM 18 
carriage return 6 
character set. alternate 9 
characters 
control 4.5. 6 
MouseText 2.8 
clear 5 
ROL 5 
EOS 5 
line 4 
CLI 19 
comma tabbing 9 
control characters 4, 5. 6 
(CONTROL )-(RESET) 17 
COLT! 7 
cursor 10 
Pascal 9 
evcle times 30 


D 


DATA 9 
data sheet, 65C02 3] 
developing cards 13 
differences 
6502 and 65C02 30-3] 
instruction results 3] 
disk 1/0 17 
Disk I] 3. 4 
Dos 3.3 3. 4.6. 16, 17 


Index 


<> 


80-column 5 
card 13, 16, 18, 20 
firmware 4 
mode 6 
screen operations = 17 
80- to 40-column operation, Pascal 
1() 
S0STORE 22. 25. 26 
Emulation mode 2 
EOL. clear 5 
EOS. clear 3 


pa | 


m 

i?) 

O 
qn 


(ESC )(\) 5 
(ESC )-(1) 5 
(esc ){*) 5 
ESC (CONTROL )(D) 4. 6 
(ESC)(CONTROL){E) 4. 5 
ESC )((CONTROL )(Q) 7 
(ESC){G) 5 
ESC )(H) 5 
(ESC )(J) 5 
(ESC )(K) 5 
(esc )(i) 4 
(ESC)(M) 5 
(ESC)(N) 9 
(ESC)(0) 5 
(ESC )(Q) 5 
(ESC)(R) 4.5.6 
(ESC )-(U) 
(ESC )(V) 
(Ww) 
(OY) 
(2) 


mim 
| 
OO 
Nl 
qn 


Escape mode 4 
extended 80-column text card 20 


F 


Whcolumn mode 4. 6 
firmware 
Apple He 13. 16 
S(heolunupe | 
video fs 


q 
G 
goloX\Y os 


H 


home 4 

AE 4 

] 

Kdenmtilving machines 2 

Instruction 
results, different 3] 
set 

Infterruptes } | 
dispatcher 
handler fh. PS 7a) 20 
IaANHHUIE response time 25 
overhead 25 
Suppert 1b 
Leche 

Inverse 

[IQ 14 


[Soe 


yy 
od, of 
ae 


} 


JK, L 

line feed 5. 6 

lowercase fb 
input 10 
Support 9 


PAD 


M 


plachine ddentifieadion 2 
mal stack pomler 22 
memory. bank-switched 20 
Mint Assembler TO. 12-15 
medent 
Vonitor 6. 17 

prompt character 12 

ROMs 2 

routine 7 

Search command 10. 1] 
rouse, Apple Tle 16 
VouseText 2. 7-4 
OWE: TS 
VSLOT esc INE 


ree | 


N 


SAP 8 
tHortinal 


0 


aperaling svstent. dulerrupt 


dispatcher 5 


P 


Pls: Sos ou 

Pascal 
SO. To JO colli operiion 
3) eo 0 Os 
cursor 4 
screen tandlimg = 10 
Transparent meade 4 


Pascal Lod firmware profocal 4): 


Pastl be “Oe Vey ly 
peripheral card 15 


Jruedery 


1) 


1 
> 


Py aan AS 

PReg 17 

PRINT 4 
PropOSsS 3, Th. 17 
ProFile 3.9 


Q 


quill i 


R 


RAM. ausilary 20 
RAMRD 22 
RAMWEHT 22 
RDLCH AM 22 
REM 
revue on 
ROMS) 

Gard’ JS 

Month o2 

vided 1 
fl) 20 


S 

2) Go dee 
data sheet 35] 
differences from 6502 
imerrupt timndling on 
Instructions 15 

SCTCET! 
handling A. 10 
Holes 2 

Sah. 


wlocahions 
serall 9 
scrolling 17 
STM HY 
Slat. Video expansion Ss 


ye) ade 
ts fh 
{y 


el 


Slot 3 15. 16. 18 
space 9 


SPC 4 
stack 17 
auxiliary 26 


“er 


pointers 22 
starting up 3 


TAB Y 
text mode 7 
Transparent mode 9 


U 


uppercase, automatic 6 


V 

video 
expansion slot 18 
firmware 4.8 
ROM 7 

W, X 

AFER 13, 23 

AFERALT 28 

ees 


Zero page. auniflary 26 


Cast of Characters 


SC3 page 18, 24 
SC300 firmware = 14 
$C800 ROM 27 
SC8U0 space 19, 24 
SCn00 ROM 25 
SDOW 26 

SFFFE 20, 27 
STFS 24 

S3FE 20, 24-25 
S3FF 20 


Indes 


i 


Free Replacement 





HF Yu BUAGKASE AMpLe SOM WANs oF MAAUALS Uhl have phyelea 
defects, or even if you damage them yourself, Apple will replace 
them at no cost to you. This offer is good for two years after the last 
date that Apple continues to sell that product to its dealers. See 
your local authorized Apple dealer for details about the Apple 
Media Exchange Program. 


Limitation on Warranties and Liability 
BEE E—=E—R———XK—_—_——————— 


Even though Apple has tested this manual and software and has 
reviewed their contents, neither Apple nor its suppliers make any 
warranty or representation, either express or implied, with respect 
to this manual or software, their quality, performance, 
merchantability, or fitness for any particular purpose. As a result, 
this manual and software are sold “as is,” and you the purchaser 
are assuming the entire risk as to their quality and performance. In 
no event will Apple or its suppliers be liable for direct, indirect, 
incidental, or consequential damages resulting from any defect in 
the manual, even if they have been advised of the possibility of 
such damages. In particular, they shall have no liability for any 
programs or data stored in or used with Apple products, including 
the costs of recovering or reproducing these programs or data. 


©1984 Apple Computer, Inc. 
Printed in U.S.A. 


Copyright 
(i ee) 


AIS thahual ahd the acoompaliving SoflWate (edmpuled Ardgrains) 
are copyrighted by Apple or by Apple's suppliers, with all rights 
reserved. Under the copyright laws, this manual and software may 
not be copied, in whole or in part, without the written consent of 
Apple, except in the normal use of the software or to make a 
backup copy. This exception does not allow copies to be made for 
others, whether or not sold, but all of the material purchased (with 
all backup copies) may be sold, given, or lent to another person. 
Under the law, copying includes translating into another language. 


You may use the software on any computer owned by you, but 
extra copies cannot be made for this purpose. For some products, a 
multi-use license may be purchased to allow the software to be 
used on more than one computer owned by the purchaser, 
including a shared-disk system. Contact your authorized Apple 
dealer for information on multi-use licenses. 


© Apple Computer, Inc., 1984 
20525 Mariani Avenue 
Cupertino, California 95014 


Apple, the Apple Logo, ProDOS, and ProFile are trademarks of 
Apple Computer, Inc. 
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